bueno gracias taodos por las ideas
alfin me funciono asi
Código Delphi
[-]
procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption:=Copy (ComboBox1.Text, 0,
Length(ComboBox1.Text)-Length(ComboBox1.SelText));
end;
saludpos