Variable aus einer bestimmten Texstelle auslesen

[GanjalfDerGruene]

Moin moin, ich möchte in einem Text nach einem Zeichen ('#') suchen und die 4 Werte darunter jeweils in eine Variable umwandeln, dummerweise habe ich absolut keinen Plan wie das geht.

Delphi-Quellcode:

  i:=0;
  AssignFile(Datei, 'Datei.txt');
  Reset(Datei);
  while not EoF(Datei) do
  begin
    ReadLn(Datei,i);
      inc(i);
      i := Pos('#', 'Datei.txt');
      if i = 0 then ShowMessage('Fataler Fehler')
      else
        begin
             inc(i);
             bezeichnung:=Datei[i];
             ListBox1.Items.Add(bezeichnung);
             inc(i);
             geschwindigkeit:=Datei[i];
             inc(i);
             kaliber:=Datei[i];
             inc(i);
             masse:=Datei[i];
      end;