Из ListBox в Edit по клику или энтеру

[kopoba]

Здравствуйте. Не могли бы вы подсказать, как выполнить следующую штуку: нужно из Edit по нажатию клавиши "стрелка вниз" перейти в ListBox, там выделенным курсором найти нужную запись и по нажатию Энтер или клику скопировать эту запись в Edit (навигация в ListBox клавишами вверх-вниз либо выбрать мышкой сразу нужную запись). Вот такая вот задача.. а то ListBox заполнить - заполнил, а как из него в Edit записать не знаю(

[Terran]

Procedure TForm1.Edit1KeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If Key=40 Then
Begin
ListBox1.SetFocus;
End;
End;
Procedure TForm1.ListBox1KeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If (Key=13) Then
Begin
Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];
End;
End;
Procedure TForm1.ListBox1DblClick(Sender: TObject);
Begin
Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];
End;

[kopoba]

Ух ты. Спасибо. А как еще сделать, чтобы по нажатию бэкспейс в листбоксе, сам листбокс убирался, а значение в Edit оставалось?

[Terran]

А как еще сделать, чтобы по нажатию бэкспейс в листбоксе, сам листбокс убирался, а значение в Edit оставалось?

Procedure TForm1.ListBox1KeyDown(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If Key=8 Then
Begin
ListBox1.Visible:=False;
End;
End;

[kopoba]

Спасибо вам большое, добрый вы человек!