Координаты выделеной строки ListBox

[maloun]

Здравствуйте. У меня такая проблема:
есть ListBox строки которого заполнены именами папок, при нажатии на кнопку "переименовать" должно появится Edit над выделеной строкой в которое я введу новое имя строки, но как заставить появлятся его именно над выделеной строкой всегда в одной позиции? Я использовал процедуру которую нашёл в интернете и немного её дописал:

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
ItemText: PChar;
ItemPos: Integer;
Ed:TEdit;
begin
ItemPos := ListBox1.ItemAtPos(Point(X,Y),True);
if ItemPos =-1 then Exit
else if Button = mbLeft then
Ed:=TEdit.Create(Form1.GroupBox1);
Ed.Parent:=Form1.GroupBox1;
Ed.Height:=14;
Ed.Width:=170;
Ed.Top:=Y+59;
Ed.Left:=35;
end;

Но она работает не совсем так как мне нужно, она ставит Edit на координаты мыши, что логично, но мне надо узнать координаты именно строки. Помогите пожалуйста.

[Stilet]

var ItemPos: Integer;r:TRect;p:TPoint;
begin
 ItemPos:=ListBox1.ItemAtPos(Point(x,y),true);
 r:=ListBox1.ItemRect(ItemPos);
 p:=ListBox1.ClientToParent(Point(r.Left,r.Top));
 if ItemPos<>-1 then begin
  with Edit1 do begin
   top:=p.y;
   Left:=p.x;
  end;
 end;
end;

Смысл понятен?

[maloun]

На самом деле не очень, но поискав в нитернете про ItemRect нашёл урок по созданию Edit на ListBox, спасибо)
http://www.delphiexpert.ru/view_lesson.php?id=54

[maloun]

Ещё вопрос, как заставить функцию RenameFile работать из процедуры keyPress моего динамического Edit'a, она пашет везде куда не засуну, кроме этой процедуры