with Excel do begin Workbooks.Add('', 0); Cells.Item[1,1] := ADOTable1.FieldByName('Нужное тебе поле').Value; Visible[0] := True; end;