[kobz]

Спасибо NumLock за код. Разбираюсь с функциями WinApi
Сделал так:

Код:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  hFile: THandle;
  Dummy: Cardinal;
   s:string;
begin
 if Button  = mbLeft then
 begin
  hFile:=CreateFile('ShazamID.txt', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
  if hFile<>INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hFile, 0, nil, FILE_END);
    s:= Memo1.Lines[Memo1.CaretPos.Y]+#13#10;
    WriteFile(hFile, PChar(s)^, Length(s), Dummy, nil);
    CloseHandle(hFile);
  end;
 end;
end;

Memo: Я встретил Вас и все былое
В файле получается см. рисунок
Что не так?