Frage für StringGrid

[Hansa]

Hi,

ich kriege nicht hin, in einem Stringgrid alle Dateinamen aufzulisten:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sr: TSearchRec;
begin
  StringGrid1.Col := 0;
  if FindFirst ('\*.*',faAnyFile,sr) = 0 then repeat
    if StringGrid1.Col = 1 then
      StringGrid1.Col := 0;
    StringGrid1.Cells [StringGrid1.Row,StringGrid1.Col] := sr.Name;
    StringGrid1.Col := StringGrid1.Col + 1;
    StringGrid1.Cells [StringGrid1.Row,StringGrid1.Col] := IntToStr (stringgrid1.col);
    StringGrid1.RowCount := StringGrid1.RowCount + 1;
    StringGrid1.Row := StringGrid1.Row + 1;
  until FindNext(sr) <> 0;
  FindClose(sr);
end;

Das ist alles. Ein Button, ein Grid. Und die Spaltenbreite, wie kriege ich die verändert ? Geht auch nicht.