Bild in TImage objekt Skalieren

Schurke

also ich will ne art kleine vorschau haben und hab es bis jetzt so gemacht.

//---------------------------------------------------------------------------
void __fastcall TMausSensivitaet::flb_FilesChange(TObject *Sender)
{// File List Box ( flb )
if ( flb_Files->FileName != "" )// Gucken obs nicht leer ist-
   {
   Bild->LoadFromFile(flb_Files->FileName);// Mein TBitmap Objekt.
   img_Vorschau->Canvas->Draw(0,0,Bild);// Nicht schwer zu erraten, das TImage objekt
   }
}
//---------------------------------------------------------------------------

nur mein problem ist eben, er zeichnet genau wie ich ihm gesagt habe das ganze bild. d.h. ich sehe nur einen geringen außschnitt. wie lasse ich ihn es jetzt genau auf die größe meines TImage objektes skalieren?
ich hab StretchDraw probiert aber wenn ich ein rect objekt intalisiere verwirren mich die angaben die gemacht werden müssen oO ( borland erklärt die nicht wirklich gut )

EDIT: Habs geschaft durch googeln und code lesen auf einer russischen seite mein problem zu lösen ( ich mag code.. da muss ich nichtmal russisch können um russisches c++ zu lesen.. )

void __fastcall TMausSensivitaet::flb_FilesChange(TObject *Sender)
{// File List Box ( flb )
if ( flb_Files->FileName != "" )
   {
   Bild->LoadFromFile(flb_Files->FileName);
   img_Vorschau->Canvas->StretchDraw(Rect(0,0,img_Vorschau->Width
                                                                 ,img_Vorschau->Height)
                                                                 ,Bild);
   }
}