Как записать в файл при использовании OpenFile?

[munthrekosh]

Нужно записывать в файл символ. Проблема в том что я использую OpenFile, при этом совершенно не зная как с ним работать. Работая методом научного тыка попытался что-то сделать сам и получил вот это:

procedure TForm1.Button1Click(Sender: TObject);
var
  buf:_ofstruct;
begin
  FileHandle:=OpenFile(PANSIChar('lol.txt'),buf,of_create or OF_READWRITE or OF_SHARE_EXCLUSIVE);
  pp:=true;
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  length:integer;
begin
if pp then
    begin
      length:=Memo1.SelStart-start;
      Memo1.SelStart:=start;
      Memo1.SelLength:=length;
      write(FileHandle,Memo1.SelText);
    end;
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Start:=Memo1.SelStart;
end;

Выдаёт Exception EInOutError. Что я делаю не так?

[3D Hunter]

Встречный вопрос: почему именно OpenFile? Почему не FileOpen, CreateFile, TFileStream, TextFile, File of <...>, File?

LhFile:=OpenFile('lol.txt',buf,OF_CREATE or OF_READWRITE);

А ошибка скорей всего потому, что этот файл открыт другим приложением и не может быть удален.

[Пепел Феникса]

OpenFile вообще-то устарела.

[3D Hunter]

Используйте уже тогда CreateFile, если хотите с хэндлами иметь дело.