Fra Listbox til Edit

procedure TForm1.Button1Click(Sender: TObject);
var
  search: string;
begin
  search := Edit1.Text;
  if SendMessage(ListBox1.Handle, lb_selectstring, - 1, Longint(PChar(search))) <> LB_ERR then

form2.show

    end;

Kan du forklare lidt? :)

Hvis du skriver Search: PChar; kan du lave den mere enkelt :)
Ikke testet:
procedure TForm1.Button1Click(Sender: TObject);
var
  Search: PChar;
begin
  Search := Edit1.Text;
  if SendMessage(ListBox1.Handle, lb_selectstring, - 1, Longint(search)) <> LB_ERR then

form2.show

    end;

Sorry, det var bare mig der ikke læste koden rigtigt :)

Lukker :P Alt virker nu ;D