[[cHackAll]]

Empezado por intercubo

...agradeceria que me dijeran otras opciones...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var hFile: Cardinal; Value: Char;
begin
 hFile := _lopen(PChar(Edit1.Text), OF_READ);
 if hFile = -1 then Exit; // No se pudo abrir el archivo
 while LongBool(_lread(hFile, @Value, 1)) do
  Memo1.Text := Memo1.Text + Value;
 CloseHandle(hFile);
end;