Zwei Stringlisten sortieren

[Luckie]

Gut die Eigenschaft habe ich jetzt gefunden, nur leider hängt sich mein Programm ganz still auf. Es kommt keine AV oder sonst irgendetwas.

Delphi-Quellcode:

type
  TFileObject = record
    Filename: String[255];
  end;
  PFileObject = ^TFileObject;

procedure TForm1.mnuFilesClick(Sender: TObject);
var
  i: Integer;
  s: string;
  FileObj: PFileObject;
begin
  if frmFiles.ShowModal = mrOK then
  begin
    // oben und unten eine Zeile zusätzlich
    StringGrid1.RowCount := slFiles.Count + 2;
    // Spaltenbreite anpassen
    StringGrid1.ColWidths[0] := GetLongestWord(StringGrid1.Canvas, slFiles) +
      30;
    // Dateinamen mit Pfad als Objekt in der Zeile ablegen
    for i := 0 to slFiles.Count - 1 do
    begin
      new(FileObj);
      FileObj^.Filename := slFiles.Strings[i];
      StringGrid1.Rows[i+1].AddObject(ExtractFilename(slFiles.Strings[i]), TObject(FileObj));
    end;
  end;
  mnuAnalyze.Enabled := EnableAnalyzeBtn;
end;