delphi, запись Pchar строки в файл

[rax9ray]

Помогите плз.Как записать строку Pchar в текстовый файл.Находил пару способов но криво копирует.Ссылки тоже подойдут//

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ClipBrd;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
private
  PrevHwnd: Hwnd;
  procedure WMChangeCBChain(var Msg: TWMChangeCBChain);
    message WM_CHANGECBCHAIN;
  procedure WMDrawClipboard(var Msg: TWMDrawClipboard);
    message WM_DRAWCLIPBOARD;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.WMChangeCBChain(var Msg: TWMChangeCBChain);
begin
  if PrevHWnd = Msg.Remove then
    PrevHWnd := Msg.Next;
  if Msg.Remove <> Handle then
    SendMessage(PrevHWnd, WM_CHANGECBCHAIN, Msg.Remove, Msg.Next);
end;

procedure TForm1.WMDrawClipboard(var Msg: TWMDrawClipboard);
var
  P: PChar;
  H: THandle;
begin
  SendMessage(PrevHWnd, WM_DRAWCLIPBOARD, 0, 0);
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    H := Clipboard.GetAsHandle(CF_TEXT);
    P := GlobalLock(H);
 //Здесь должна быть запись в файл строки P
{вот такой способ я нашол} 
FileHandle := FileCreate('222.txt');
 FileWrite(FileHandle,p,lstrlen(p));
FileClose(FileHandle);
   
    GlobalUnlock(H);
  end;
  Msg.Result := 0;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  PrevHwnd := SetClipboardViewer(Handle);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ChangeClipboardChain(Handle, PrevHwnd);
end;

end.

[Stilet]

Находил пару способов но криво копирует.

Код в студию )

[rax9ray]

скинул код)

[Stilet]

P := GlobalLock(H);

А ты проверял что попадает в P?

[rax9ray]

Да,проверял-если вывести через memo вот так Memo1.SetTextBuf(P); то кривых символов не будет.Но мне нужна запись в файл а не в memo/

[rax9ray]

Оффтоп, проблема решилась)