Transparenz bei einem Bitmap in Canvas

[Lestat]

Hey Leute,

ich habe hier ein kleines Problem, meines Wissen nach sollte es funzen, tut es aber nicht

Also ich lade ein Bitmap und möchtes es danach in ein Canvas malen, wobei die Farbe "clRed" nicht mitgemalt, also transparent sein soll.

So sieht es bei mir aus:

Delphi-Quellcode:

procedure Tfrm_Editor.DrawGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
Var
  temp : TBitmap;
begin
  Temp := TBitmap.Create;
  ImageList1.GetBitmap(ARow,temp);
  temp.TransparentColor := clRed;
  temp.Transparent := true;
  BitBlt(DrawGrid1.Canvas.Handle,Rect.Left,Rect.Top,70,70,temp.Canvas.Handle,0,0,SRCCOPY);
  Temp.Free;
end;

Aber wie gesagt es funktioniert nicht.

Also wer kann mir helfen