var
  txf : TextFile;
begin
  ....
  AssignFile(txf, filename);
  Reset(txf);
  while not eof(txf) do begin
    readln(txf, s);
    // mache etwas sinnvolles mit den Daten
    i := length(s);
    if i > 254 then ShowMessage('Text größer als String'); <-- in diesem Fall gibt's Datenverlust
  end;
  CloseFile(txf);
  ....
end;