Evitar que se "repinte" un componente

[[Lepe]]

En el listbox:
- extendedselect := false;
- autocomplete := false
- multiselect a true

y en el evento onKeyPress:

Código Delphi [-]
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
    if Key = 'a' then
  begin
    ListBox1.itemindex := 3;
    ListBox1.Selected[3] := True;
    Key := #0;
  end;
end;

los items que tengo en la lista son:

aaaas
aaas
aass
ass
bbb
cccc

El foco lo tiene el elemento 0 de la lista. Al pulsar la tecla 'a', se selecciona el 4º elemento, cuando en realidad, no se debería mover del primero según tus pruebas.

¿es eso lo que deseas?

Saludos