procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ComboBox1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,ComboBox1.Items.Names[Index]);
end;