Почему меняется Handle?

[Aistto]

gdi+
Открываю изображение так:

procedure TfrmMain.OpenImg;
var
  iImage: TGPImage;      
  koefH, koefW: Double;  
  K: Double;    
  iGraphics : TGPGraphics;         
begin
  K := 1;
  if OpenPctDlg.Execute then
    if FileExists(OpenPctDlg.FileName) then
    begin
      try

        iImage := TGPImage.Create(OpenPctDlg.FileName);
        koefW := ImgMain.Width / iImage.GetWidth;
        koefH := ImgMain.Height / iImage.GetHeight;

        if koefW <= koefH then
          K := koefW
        else
          K := koefH;
        try

          iGraphics := TGPGraphics.Create(ImgMain.Canvas.Handle);
          iGraphics.DrawImage(iImage, 0, 0, iImage.GetWidth*K, iImage.GetHeight*K);
        finally
          iGraphics.Free;
        end;
        ImgMain.Refresh;
      finally
        iImage.Free;
      end;
    end
    else
      ShowMessage('file not found');
end;

Так вот, проблема:

iGraphics := TGPGraphics.Create(ImgMain.Canvas.Handle);

          iGraphics.DrawImage(iImage, 0, 0, iImage.GetWidth*K, iImage.GetHeight*K);

между строками нельзя использовать showmessage или присваивать значение TLable и т.д. Вообщем меняется Handle в TImage.canvas и вообще меняюся любые xxx.canvas.handle
Почему??? можно как-нибудь заставить их не издеваться? (создавать уничтожать объекты...)

[BOBAH13]

Вы там ничего не путаите ? Наверняка напутали...я пользуюсь ничего не меняется. И вообще с чего вы взяли?