Con un archivo de tipo. Concretamente Char. Sería algo así.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
N: Integer;
C: Char;
F: File Of Char;
begin
AssignFile(F, Edit1.text);
Reset(F);
for N:=0 to FileSize(F) - 1 do
begin
Seek(F, N);
Read(F, C);
Memo1.Text:=Memo1.Text+C;
end;
CloseFile(F);
end;
Pero aviso, esto ya lo he hecho, y para archivos considerablemente granes es muy lento. Incluso si haces Memo1.Lines.BeginUpdate antes de empezar, y Memo1.Lines.EndUpdate después de acabar, sigue siendo lento para archivos de varios Megabytes.
Por cierto, intercubo, bienvenido al club. Haz caso de lo que dice juanelo la próxima vez.
Salu2.