Aprire un file

[spreadmind]

In Delphi e portare tutto il suo contenuto in una variabile di tipo string... il tutto nel minor tempo possibile allego quello che ho fatto:

try
f := tfilestream.create('c:\Alex Britti Oggisono.kar', fmOpenRead);
ix := 0;
while ix < f.size do
begin
F.Position := ix;
f.Read(b, sizeof(b));
memo := memo + b;
inc(ix,255);
end;
finally
f.free;
end;