tchecklistbox

[argel]

lo resolvi de esta manera

procedure TForm1.Button1Click(Sender: TObject);
var
cadena:string;
n:integer;
begin
n := checkListBox1.Count-1;
cadena:=edit1.text;
CheckListBox1.Items.Insert(n, cadena);
end;
end