1:
2:
3:
4:
5:
6:
7:
8:

If edit1.text = listbox1.items[0] then
edit2.text := listbox2.items[0];

If edit1.text = listbox1.items[1] then
edit2.text := listbox2.items[1];

If edit1.text = listbox1.items[2] then
edit2.text := listbox2.items[2];					

1:
2:
3:
4:
5:
6:

procedure Buttonclick
var i:integer;
begin
  i:=listbox1.items.indexof(edit1.text);
  if (i<>-1) and (i<=listbox2.items.count-1)  then edit2.text:=listbox2.items[i];
end;