[Delphi] Minimalizovanie do tray

uses
  (* ... *), ShellAPI;

type
  TForm1 = class(TForm)
//...
    procedure WndProc(var Message: TMessage); override;  // toto pripíš medzi ostatné funkcie
  private
    IconNotifyData : TNotifyIconData;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message: TMessage);
begin

case Message.Msg of
  WM_SYSCOMMAND:   case Message.WParam and $FFF0 of
                     SC_MINIMIZE: begin
                                 Hide;
                                 Exit;
                                 end;
                     SC_RESTORE: ;
                     end;
  WM_USER + 1:    if (Message.LParam = WM_LBUTTONDOWN) then Show;
end;

inherited;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin

  with IconNotifyData do begin
   hIcon := Application.Icon.Handle;
   uCallbackMessage := WM_USER + 1;
   cbSize := sizeof(IconNotifyData);
   Wnd := Handle;
   uID := 100;
   uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  end;

  StrPCopy(IconNotifyData.szTip, Application.Title);
  Shell_NotifyIcon(NIM_ADD, @IconNotifyData);
  Application.ShowMainForm := False;
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

end;

[DCC Error] Unit1.pas(58): E2003 Undeclared identifier: 'StrPCopy'

//StrPCopy(IconNotifyData.szTip, Application.Title);
//Shell_NotifyIcon(NIM_ADD, @IconNotifyData);

[DCC Error] Unit1.pas(59): E2396 Unsafe code only allowed in unsafe procedure