Textdatei in Record Muster überführen

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  spruch, autor:string;
  dataSet : TSprueche;  // dein Record 
begin
  nr:=random(filesize(datei));
  seek(datei,nr);
  //*Wie kann ich nun das was er da geseeked hat als string unter spruch speichern und den autor 
unter autor?
  read(datei,dataSet); // den record aus der Datei lesen
  spruch:= //alles vor ;
  spruch := dataSet.spruch;
  autor:= //das nach ;
  autot := dataSet.autor; 
  memo1.Lines.Add(<spruch>+'von'+<autor>)
end;

Grüße
Klaus