Radio sam pre 2-3 godine sa aut. server komponentama, ali sam zaboravio linkove, nema ih puno, vise sam koristio help, neki za VB (verovao ili ne).
Da bi malo pomogao evo ti kako da radis sa excel i word-om (pazi Office 2000):
EXCEL
......
try

excelapplication1.Connect;
except
MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
Abort;
end;
excelApplication1.Caption := 'Tvoj_caption';
Template :='Tvoj_template.xlt'; {EmptyParam;} {prethodno formiraj template}
NewTemplate := False;

excelapplication1.Workbooks.Add(Template, NewTemplate);

count:=0;
excelapplication1.Sheets.count;
ExcelSheet:=excelapplication1.ActiveSheet;
ExcelSheet.name:='Tvoj_sheet';

excelapplication1.Range['a'+inttostr(1),'e'+inttostr(1)].Borders.Color:=clblack; {tvoj border od a1 do e1}
ExcelSheet.Cells(1,1):='Tvoj text u celiji a1';

excelapplication1.Visible[1] := True;
excelapplication1.Disconnect; {zavrsio si sa vezom sa excelom}
.................

WORD

wordApplication1.Connect;
wordApplication1.Caption := 'Tvoj caption';

template:='Tvoj_template.dot'; {pre toga napravi template}
Newtemplate:=false;
Doc.ConnectTo(WordApplication1.Documents.Addold(Template,Newtemplate));
{ Find text and format it. This time we define our own range, so that
it can be redefined when the Find is executed. }
TextRange := Doc.Content;
SearchText := 'sta trazis';
TextRange.Find.Executeold(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, EmptyParam, EmptyParam);
TextRange.Font.bold := integer(True);{primeni font style na trazeno}

SearchText := 'sta trazis';
ReplaceText := 'sa cim menjas'; {find and replace}
Wrap := wdFindContinue;
All := wdReplaceAll;
Doc.Content.Find.Executeold(SearchText, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, Wrap,
EmptyParam, ReplaceText, All);
Wordapplication1.visible:=true;
Wordapplication1.disconnect;
.....

Pozdrav: