(ListBox) как сделать

[casio23]

на форме есть ListBox1 и Label1,в ListBox1 - 7 строк
нужно сделать так, чтобы при нажатии клавиши вниз Label1.Transparent:=True; после этого выделить 1ю строку в LisBox-e
и наоборот когда нажимаю клавишу вверх,и дохожу до 1 строки,нужно снять выделении с 1 строки и Label1.Transparent:=False;

если кто может посмотрите код,может можно как то по другому сделать?

вод код(vk_Down вроде работает а вот vk_Up нет)

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

  var    i:integer;

  begin
           if key = vk_Down then
            
             begin
             
                if ListBox3.Items.Count >= 1 then
             
                  begin
 
                    Label1.Transparent := True;
                    ListBox3.SetFocus;
            
                    if ListBox3.Items.Count > 0 then

                      begin
         
                         if I <= ListBox3.Items.Count -1 then
                
                           ListBox3.Selected[I] := True;
          
                      end;
                   end;
              end;
  end;
    
procedure TForm1.ListBox3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
       
           if key = vk_Up then
     
            begin

              if ListBox3.Items.Count = 1 then  
        
                begin
       
                   ListBox3.Selected[0]:=False; 
                end;
            end;
end;

[asmodey1]

С событием OnKeyDown - одни заморочки.
Обрабатывайте событие OnKeyUp - и будет вам счастье...