var
  StrArray: Array of String;
  I: Integer;
  A: String;
begin
  SetLength(StrArray, ListBox1.Items.Count);
  for I := 0 to ListBox1.Items.Count - 1 do   begin
    StrArray[i]:= ListBox1.Items.Strings[i];
    A := A+',' + StrArray[i];
    end;
     Delete(A,1,1);
end;