TImage 에 그림 올려두고
procedure TForm1.FormCreate(Sender: TObject);
var
ExtStyle : Integer;
begin
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or $00080000);
SetLayeredWindowAttributes(Handle, RGB(91,95,251), 255, LWA_COLORKEY or LWA_ALPHA);
//두번째 파라메터가 투명색
//마지막 파라미터의 첫번째는 키를이용한 투명, 두번째는 알파값
end;