Result:TBitmap Memory Leak???

Unit projleaktest;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

Type
  TForm1 = Class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  End;

Var
  Form1: TForm1;
  TheHandle: Integer;

Implementation

{$R *.dfm}

Function CaptureScreen: TBitmap;
Var
  DC: HDC;
Begin
  DC := GetDC(TheHandle);
  Try
    Result := TBitmap.Create;
    Try
      Result.Width := 600;
      Result.Height := 500;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, DC, 0, 0,
        SRCCOPY);
      Result.Modified := True;
    Finally
      ReleaseDC(TheHandle, DC);
    End;
  Except
    Result.Free;
    Result := Nil;
  End;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  TheHandle := 0;
  image1.Picture.Bitmap := CaptureScreen;
End;

End.

Procedure TForm1.Timer1Timer(Sender: TObject);
var
  tmpBitMap: TBitmap
Begin
  TheHandle := 0;
  if Assigned(tmpBitmap) then tmpBitmap.Free;
  tmpBitmap:=CaptureScreen;
  image1.Picture.Bitmap := tmpBitmap;
End;