[Alegun]

Можно и так

Код:

function ppp(ds: string): string;
var
  f: file of byte;
  text: pchar;
 begin
AssignFile(f, ds);
Reset(f); 
GetMem(text, 53 {сколько нужно});
BlockRead(f, text^, 53);
SetLength(Result, 53);
 Result:= string(text);
CloseFile(f);

end;