Preciso criar um função onde eu passo para a função um CheckListBox e esta função irá armazenar em uma variável os valores do checklistbox.
function PegaDescricao(checklistbox .......... ) : String;
var i, cont, descricao : Integer;
begin
cont := 0;
for i:=0 to checkListBox.Items.Count-1 do
begin
if cont = 0 then
begin
cont := contad +1;
descricao:=copy(checkListBox.Items.Strings[i],1,Length(checkListBox.Items.Strings[i])-4);
end
else
descricao:=descricao+', '+copy(checkListBox.Items.Strings[i],1,Length(checkListBox.Items.Strings[i])-4);
end;
end;