Prueba lo siguiente, no sé si es la mejor forma de hacerlo, pero acabo de probarlo y funciona:
OnCreate del form:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
TransparentColor := True;
TransparentColorValue := clBlack;
Color := clBlack;
BorderStyle := bsNone;
end;
OnProgress del TImage:
Código Delphi
[-]
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: String);
begin
if PercentDone = 100 then
begin
TransparentColor := False;
Color := clBtnFace;
BorderStyle := bsSizeable;
end;
end;
Lo que hace es hacer el form transparente en el create, y restablecerlo cuando la imagen está totalmente cargada.