procedure TForm1.Button1Click(Sender: TObject);
var hFile: Cardinal; Value: Char;
begin
hFile := _lopen(PChar(Edit1.Text), OF_READ);
if hFile = -1 then Exit; while LongBool(_lread(hFile, @Value, 1)) do
Memo1.Text := Memo1.Text + Value;
CloseHandle(hFile);
end;