[~TB~]

Если я правильно понял, что нужно:

Код:

var
  gg: TCheckbox;
begin
gg:=TCheckbox.Create(nil);
gg.Parent:=Form1;
gg.Caption:='This is simple text...text';
gg.Width:=5*Length(gg.Caption);
end;