[NumLock]

Код:

var
  f: THandle;
  dummy: Cardinal;
begin
  f:=CreateFile('Project1.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
  WriteFile(f, Edit1.Text[1], Length(Edit1.Text), dummy, nil);
  CloseHandle(f);
end;