ListBox - selecao sensitiva na edit

1 Edit e 1 ListBox com n items.

Ao digitar na edit o programa focaliza o item na list box que tem as mesmas iniciais:

procedure TForm1.Edit1Change(Sender: TObject);

var

  tmpPChar : PChar;

begin

  GetMem(tmpPChar, Length(Edit1.Text) + 1);

  StrPCopy(tmpPChar, Edit1.Text);

  ListBox1.Perform(LB_SELECTSTRING, 0, LongInt(tmpPChar));

  FreeMem(tmpPChar, Length(Edit1.Text) + 1);

end;