var
 Excel: OleVariant;
 Sheet: OleVariant;

begin

 Excel:= CreateOleObject('Excel.Sheet');
 Excel.Application.Visible := True;

 Excel.Windows[1].Caption := 'title';
 Excel.Windows[1].SplitColumn := 0;
 Excel.Windows[1].SplitRow := 1;
 Excel.Windows[1].FreezePanes := True;

 Sheet := Excel.WorkSheets[1];

 Sheet.Cells[1,1]:='col1';
 Sheet.Cells[1,2]:='col2';
 Sheet.Cells[1,3]:='col3';
 
 {тут заполнение листа данными}  

 Sheet.UsedRange.Columns.AutoFit;

 {тут открывается модальная форма}

 {тут данные переносятся из Excel-а в мое приложения}

 Sheet := Null;
 Excel := Null;