[Alexandr_57]

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Button1.Top:=ListBox1.Top+(ListBox1.ItemIndex*ListBox1.ItemHeight);
end;

Вот код.
Извиняюсь. Теперь код верный и проще.