[dr. F.I.N.]

Я бы немного по-другому пошел...(Учитывая, что шрифт комбобобкса может быть любой)

Код:

var
  gg: TCheckbox;
  c: TCanvas;
begin
gg:=TCheckbox.Create(nil);
gg.Parent:=Form1;
gg.Caption:='This is simple text...text';
c := TCanvas.Create;
c.Font.Assign(gg.Font);
gg.Width:=c.TextWidth(gg.Caption) + Offset; // Offset - константа равная отступу от левого края до начала текста в чекбоксе
c.Free;
end;