[ixMike]

Bien, prueba con esto en el evento OnChange de tu TEdit

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var
T, L: String;
n: integer;
begin
If ListBox1.Items.Count=0 then Exit; //Salimos si la lista no tiene texto
T:=AnsiUpperCase(Edit1.text);
for n:=0 to ListBox1.Items.Count-1 do
  begin
  L:=AnsiUpperCase(ListBox1.Items[n]);
  If Pos(T,L)=1 then  //Si el Item N empieza por el texto, lo selecciona y salimos
    begin
    ListBox1.ItemIndex:=n;
    Exit;
    end;
  end;
end;

Este código hace que no diferencie entre mayúsculas y minúsculas. Si quieres que busque un Item que no empiece por, sino que contenga el texto (es decir, que "po" seleccione "Tiempo") entonces cambio "If Pos(T,L)=10" por "If Pos(T,L)>0".

Espero que te sirva de ayuda.