[NumLock]

вообще-то delphi не поддерживает альфа-канал:

Код:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color:=clRed;
  Canvas.FillRect(Rect(20, 20, 80, 80));
  Canvas.Brush.Color:=$4000ff00;
  Canvas.FillRect(Rect(40, 40, 100, 100));
end;