Zellegröße von EXCEL bestimmen!

[trojaner]

Hallo,
kommt darauf an wie du Excel rufst.

Delphi-Quellcode:

    excel:=CreateOleObject('excel.Application');

      if length(ADODataSet2.FieldByName('AText').AsString) > 1 then
        Excel.Rows[27+i].RowHeight := 18;
      if length(ADODataSet2.FieldByName('AText').AsString) > 50 then
        Excel.Rows[27+i].RowHeight := 38;
      if length(ADODataSet2.FieldByName('AText').AsString) > 100 then
        Excel.Rows[27+i].RowHeight := 58;
      if length(ADODataSet2.FieldByName('AText').AsString) > 150 then
        Excel.Rows[27+i].RowHeight := 78;
      if length(ADODataSet2.FieldByName('AText').AsString) > 200 then
        Excel.Rows[27+i].RowHeight := 98;
      if length(ADODataSet2.FieldByName('AText').AsString) > 250 then
        Excel.Rows[27+i].RowHeight := 118;

ich mache das so, ist zwar Datenbank sollte aber auch mit Stringgrid gehen.
Gruss