{uses satirina comobj eklenecek}
procedure TForm1.Button1Click(Sender: TObject);
var
v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}
i:integer;
r:variant;
begin
v:=createoleobject('excel.application');//exceli yarat
v.workbooks.open('c:\n.xls'){add};//yeni calisma kitabini ekle
sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}
r:=v.activeworkbook.worksheets[1].usedrange;
i:=r.rows.count; // excel kayit sayisi
showmessage(inttostr(i));
v.visible:=true;//Exceli acip verileri goster
end;