Ajuda Ugente! Com Canvas.

[Hudsonkem]

bom galera é o seguinte comecei a pouco tempo no delphi e encontrei um problema que n consigod achar a solução, o programa q estou fazendo é uma regua onde temos um form onde fica os botões(criar regua) e em seguida faz uma chamada para aparecer direto no monitor ficando em cima de tudo. porém quando eu movo ou passo o mouse por cima some minha foto q seria o teste para a regua, eu gostaria muito de deixar essa imagem sempre no top na frente de tudo, so saindo quando eu desalocar a memoria ou fechar a aplicação. vou botar o codigo de onde eu cheguei. espero q me ajudem.

unit arq1;{$mode objfpc}{$H+}interfaceuses  Classes,SysUtils,FileUtil,Forms,Controls,Graphics,Dialogs,Buttons,ExtCtrls, Windows, png;type  { TForm1 }  TForm1 = class(TForm)    BCRuller:TSpeedButton;    procedure BCRullerClick(Sender:TObject);    procedure FormClose(Sender:TObject;var CloseAction:TCloseAction);    procedure FormCreate(Sender:TObject);  private    { private declarations }  public    { public declarations }  end;var  Form1: TForm1;     //criando variaveis do tipo png.  b_base, b_targ, b, base :TPicture;  mpt :TPoint;  //criando canvas.  cb_base, cb_targ, cb, cbase :TCanvas;implementation{$R *.lfm}{ TForm1 }procedure TForm1.FormCreate(Sender:TObject);begin  //fazendo a criação das imagens.  b_base := TPicture.Create;  b_targ := TPicture.Create;  b := TPicture.Create;  base := TPicture.Create;  cb_base := TCanvas.Create;  cb_targ := TCanvas.Create;  cb := TCanvas.Create;  cbase := TCanvas.Create;  //carregando imagens da pasta img.  b_base.LoadFromFile('img\b_base.png');  b_targ.LoadFromFile('img\b_targ.png');  b.LoadFromFile('img\b.png');  base.LoadFromFile('img\base.png');end;procedure TForm1.BCRullerClick(Sender:TObject);begin  cb_base.Handle:=GetDC(0;  cb_base.Brush.Style:=bsClear;  cb_base.Draw(500,500, b_base.PNG);end;procedure TForm1.FormClose(Sender:TObject;var CloseAction:TCloseAction);begin  cb_base.Free;end;end.