Sollte doch so gehen:
Delphi-Quellcode:
Read(fMain.Datei, fMain.DatenSatz);
Ort:= Copy(fMain.Datensatz.Ort, 6,Length(leSuchbegriff.Text));
Aus der Hilfe:
function Copy(S; Index, Count: Integer): string;
oder
Delphi-Quellcode:
Read(fMain.Datei, fMain.DatenSatz);
Ort:= Trim(Copy(fMain.Datensatz.Ort, 6,50));
Trim entfernt die Leerzeichen vor und hinter dem String.
Grüße
Klaus