как отобразить фотуиз ресурсов полностью?

[Dude_first]

я хочу создать пррогу, типа слайдшоу . я запихал в фаил ресурсов несколько фоток, и как бы они у меня нормально вызываются на Timage. Но почему то показывается только верхний угол фоты(т.е реальный размер изображения) хотя Stretch и Proportional установленны в true.
Как отобразить фоту полностью?

[mihali4]

Скриншот можно?
И код - каким образом фотки вызываются.

[Dude_first]

function Loada( Number: integer ): TJPEGImage;
var
ResStream: TResourceStream;
begin
Result := TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID( HInstance, Number, RT_RCDATA );
Result.LoadFromStream( ResStream );
ResStream.Free;
end;

procedure TForm1.TiTimer(Sender: TObject);
var f:TJPEGImage;
begin
case ti.Tag of
0: begin f:=loada(1); o:=true; end;
20: begin f:=loada(2); o:=true; end;
end;
if o then begin
image1.Canvas.Draw(0,0,f);
o:=false;
end;
ti.Tag:=ti.Tag+1;
end;

[AidarBik]

Посмотри вот это: