Video Seitenverhältnisse - Bildberechnung - AspectRatio

[SwordfishCenter]

hallo zusammen
Ich hoffe ihr habt mehr ahnung von videos wie ich.
ich setze VideoWindow1.AspectRatio := rmStretched; und will nun selbst die größe und Position von "VideoWindow1" berechnen.
das heist vergrößern auf dem Bildschirm 16:9 TV aber die seitenverhältnisse des Videos sollen dann stimmen.
aber so einfach wie ich mir das dachte ist das wol garnicht.
Ich habe viel hin und her probiert. zur zeit sieht das so aus aber das Bild passt nicht wirklich;

Delphi-Quellcode:

procedure TForm4.TV_16to9;
 VAR VOutT,VOutL,VOutH,VOutW,P,PW,PH:Integer;
 VH,VW:Integer;
begin
AspectRatioStr:='16:9'; //ist nur Information zur OSD Infopanel
DisplayModus := dmNormal; //ist nur Information zur OSD Infopanel
VW:=VideoWindow1.VideoImageWidth;
VH:=VideoWindow1.VideoImageHeight;
PW:=Form4.Width-VW;
P:=PW div 12;
PH:=P * 9;
VOutW:=Form4.Width;
VOutH:=VH+PH;
VOutL:=(Form4.Width-VOutW) div 2;
VOutT:=(Form4.Height-VOutH) div 2;
VideoWindow1.Top:=VOutT;
VideoWindow1.Left:=VOutL;
VideoWindow1.Height:=VOutH;
VideoWindow1.Width:=VOutW;
VideoWindow1.AspectRatio := rmStretched;
end;

procedure TForm4.TV_16to9Crop;
 VAR VOutT,VOutL,VOutH,VOutW,P,PW,PH:Integer;
 VH,VW:Integer;
begin
AspectRatioStr:='16:9'; //ist nur Information zur OSD Infopanel
DisplayModus := dmCrop; //ist nur Information zur OSD Infopanel
VW:=VideoWindow1.VideoImageWidth;
VH:=VideoWindow1.VideoImageHeight;
PH:=Form4.Height-VH;
P:=PH div 9;
PW:=P * 12;
VOutH:=Form4.Height;
VOutW:=VW+PW;
VOutL:=(Form4.Width-VOutW) div 2;
VOutT:=(Form4.Height-VOutH) div 2;
VideoWindow1.Top:=VOutT;
VideoWindow1.Left:=VOutL;
VideoWindow1.Height:=VOutH;
VideoWindow1.Width:=VOutW;
VideoWindow1.AspectRatio := rmStretched;
end;

kann mir da vieleicht einer weiterhelfen denn ich glaube so wird das nicht wirklich gehen ????