Combobox ItemIndex=-1; Text ändern im Event

[StTüff]

Hallo Reinhard!

Habe folgenden Versuch unternommen:

Delphi-Quellcode:

procedure TForm1.CoBo_VersionCloseUp(Sender: TObject);
const
  MAXBUF = 255;
var
  buf: array[0..MAXBUF] of Char;
begin
   if MessageDlg('Konvertierung durchführen?' mtConfirmation,
    [mbyes, mbCancel], 0)=mrYes
  then
  begin
    .... Konvertierung ....
  end else
  begin
    CoBo_Version.ItemIndex :=-1;
    //CoBo_Version.Text:='Test';
    buf:='test'+char(0);
    SendMessage(CoBo_Version.Handle, WM_SETTEXT, MAXBUF, Integer(@Buf));
  end;
end;

Leider funktioniert es nicht (zumindest nicht zuverlässig).
Schade

Gruß,

StTüff