[GeG]

Код:

procedure TForm3.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var Point: Tpoint;
      Index: Integer;
      z:real;
  begin
Point.X := X;
Point.Y := Y;
Index := ListBox1.ItemAtPos(Point,true);
end;

как мне теперь досать это значение в поле едит1 ??