Проблемы с функцией FileWrite

[Миша]

Почему не работает функция FileWrite

procedure TForm1.Button1Click(Sender: TObject);
var
FH: Integer;
Length: Integer;
Data:PAnsiChar;
begin
//открываем файл для чтения
FH:=FileOpen('DATA.txt', fmOpenRead);
//определяем пазмер содержимого в байтах
Length:=FileSeek(FH, 0, FILE_END);
//выделяем память для хранения содержимого
Data:= PChar(AllocMem(Length+1));
try
FileSeek(FH, 0, file_begin);//перематываем файл в начало

FileWrite(FH, 'qwe', 3);

FileRead(FH,Data^, Length); //читаем содержимое
FileClose(FH); //закрываем файл
Memo1.Lines.SetText(Data); //освобождаем память
finally
FreeMem(Data);
end;
end;

[Evgeniy26]

fmOpenRead - только для четения

[Миша]

БЛАГОДАРЮ !!!

[Миша]

А что можно записать вместо fmOpenRead для одновременного чтения и записи файлов???

[Kotofff]

Сообщение от Миша

А что можно записать вместо fmOpenRead для одновременного чтения и записи файлов???

fmOpenReadWrite

Немного теории : http://diakin.narod.ru/RQDP/rqhelp/chapter7.html

[Миша]

Ещё раз БЛАГОДАРЮ !!!