[pesi]

вот

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
xlapp: Variant;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
 xlapp.run('1.xls'+'!Макрос1');
end;