Fórum Posicionar um form conf. posição de um Edit #291250

Ola pessoal

Estou utilizando o Delphi com o Windows XP. Para posicionar uma nova janela numa determinada posição da tela, ao lado de um TEdit por exemplo, altero as propriedades do novo form (top e left) utilizando as informações desse TEdit e seus ascendentes, porém não estou obtendo o resultado esperado. Talvez falte aí somar a altura da barra de título do TForm onde está esse TEdit. Se for isso, como faço para obter esse valor? Utilizo a função abaixo que traz o valor top e left esperado.

function PosObj(Sender: TObject): TPoint;
var
Obj: TControl;
Pos: TPoint;
begin
Obj := TControl(Sender);
Pos.X := Obj.Top;
Pos.Y := Obj.Left;
while not (Obj.Parent = nil) do
begin
Obj := Obj.Parent;
Inc(Pos.X, Obj.Top);
Inc(Pos.Y, Obj.Left);
end;
Result := Pos;
end;