Code kürzen

[AlexII]

Hallo Leute,
ich habe folgenden Code hier geschrieben, und würde ihn gerne etwas verschlanken. Kann mir dabei jemand helfen? Ich frage mich z.B., ob man da nicht ohne TStringArray irgendwie auskommen könnte? Habe aber keine Idee wie? Habt ihr irgendwelche Überlegungen dazu?

Der Inhalt der txt-Datei sieht so aus:

Zitat:

1;2
3;4
5;6

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ListAllAutos: TStringList;
  i, j: Integer;
  s: String;
  sr: TStringArray;
begin
    ListAllAutos := TStringList.Create;
  try
    ListAllAutos.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'ListAllAutos.txt');
    s := ListAllAutos[0];
    sr := s.Split(';');

    SetLength(Auto, ListAllAutos.Count, Length(sr));

    for i := 0 to ListAllAutos.Count - 1 do
    begin
      s := ListAllAutos[i];
      sr := s.Split(';');
      for j := 0 to Length(sr) - 1 do
        Auto[i, j] := sr[j];
    end;
  finally
    ListAllAutos.Free;
  end;
end;

Vielen Dank!