]procedure TForm1.Button1Click(Sender: TObject);
var
Hwnd: THandle;
Text, S: string;
Count, I: Integer;
begin
Hwnd := StrToInt(Edit1.Text);
SetLength(S, 255);
SetLength(S, SendMessage(Hwnd, WM_GETTEXT, Length(S), Longint(S)));
Text := S;
Count := SendMessage(Hwnd, CB_GETCOUNT, 0, 0);
for I := 0 to Count - 1 do
begin
SetLength(S, 255);
SetLength(S, SendMessage(Hwnd, CB_GETLBTEXT, I, Integer(Pointer(S))));
if S = Text then
begin
Caption := Format('Text: %s Index: %d', [S, I]);
Break;
end;
end;
end;