[Julià T.]

aunque no viene al caso del hilo podeis probar

with button1 do
begin
CTRL+ESPACIO //para lista desplegable al menos en delphi 7
end;