Szervusz!
Először meg kell nyitni a háttérben egy xls-t, ehhez meg kell vizsgálni, hogy egyáltalán telepítve van-e az Excel.

var

Form1: TForm1; ExcelApp:OleVariant; range,firstWorkbook,MyWorkbook:OleVariant;

betoltve:boolean;
implementation

procedure TForm1.FormCreate(Sender: TObject);

begin

try

ExcelApp:=CreateOleObject('Excel.Application');

except

showmessage('Sajnos az Excel nem indítható, forduljon a rendszergazdához!');

close;

end;

opendialog1.InitialDir:=extractfilepath(application.ExeName);

showmessage('Nyisson meg egy munkafüzetet! (valami.xls)');

megnyits1Click(form1);

if not betoltve then begin close; showmessage('Kilépés!'); ExcelApp.Quit;

end;

end;
procedure TForm1.Megnyits1Click(Sender: TObject);

begin

try

betoltve:= opendialog1.Execute;

if betoltve then begin

firstWorkbook:= ExcelApp.Workbooks.Open(opendialog1.FileName);

ExcelApp.Visible:=True;// Ha háttérben akarod futtatni akkor false

form1.Show;

end;

except

betoltve:=false;

showmessage('Sajnos a fájl hiányzik, sérült, vagy más program használja!');

end;

end;

majd így lehet például a munkalap1 (worksheets1) d1-es cellájába írni:
ExcelApp.worksheets[1].Range['d1','d1'].value:=edit1.Text;

Üdv.: Totó