Delimiter Textfile

[keine_ahnung]

Grüß euch herzlich...
versuche verzweifelt aus einer Textdatei die folgendermaßen aufgebaut ist:

Code:

1;12
10;100
1;12
2;51

die erste Zahl bis zum Semikolon in ein Memofeld 1 und die 2 Zahl nach dem Semikolon in Memofeld 2 zuschreiben.
Bei der ersten Zeile hab ich kein problem...
Hier der Code

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
  var
  Datei : TStringList;
  TextZeile0, textzeile1 : string;
  i,y:integer;
begin
    i:=0;
    y:=1;
    Datei := TStringList.Create;
    try
      OpenDialog1.Execute;
      Datei.LoadFromFile(OpenDialog1.FileName);
      Datei.Delimiter := ';';
      Datei.DelimitedText := Datei.text;
      label1.Caption:=inttostr(Datei.count);
      TextZeile0:=Datei[i];
      TextZeile1:=Datei[y];
      Memo1.Lines.Add(TextZeile0);
      Memo2.Lines.Add(TextZeile1);
   finally
   Datei.Free;
  end;
end;

könnte mir jemand helfen, wie ich eine Schleife konstruiere kann, damit ich die ganze Textdatei abarbeiten kann.
Besten Dank im voraus.
chris