Problem mit TJvRichedit => eingefügtes Control

[Martin Weber]

Hallo,

ich habe folgendes Problem:

hiermit füge ich ein TJvGIFAnimator in ein TJvRichEdit ein:
procedure TForm1.RichEditChange(Sender: TObject);

function GetGifAnimator : TJvGifAnimator;
var i : integer;
begin
Result:=TJvGIFAnimator.Create(RichEdit);
Result.Image:=JvGIFAnimator1.Image;
i:=0;
while RichEdit.FindComponent('ga'+IntToStr(i))<> nil do
Inc(i);
Result.Animate:=True;
Result.Name:='ga'+IntToStr(i);
end;

begin
LockWindowUpdate(Handle);
try
if RichEdit.FindText('',0,Length(RichEdit.Text),[stSetSelection]) >= 0 then
begin
RichEdit.SelText:='';
RichEdit.InsertControl(GetGifAnimator);
end;
finally
LockWindowUpdate(0);
end;
end;


das funktioniert auch soweit, allerdings hab ich folgende zwei Probleme:

1. Das Control wird auf Pos(0,0) gesetzt, was ich allerdings ja durch left und Top bearbeiten kann, d.h. ich bräuchte die Pixel-koordinaten der Position wo das hin soll.

2. Scrollt das Control nicht mit, sondern bleibt immer gleich.

Kann mir da jemand helfen?

MfG