procedure TForm1.Button1Click(Sender: TObject);
var a,b:string;
i:integer;
begin
a:='abc,efg,hij,,,,';
while pos(',',a)<>0 do begin
i:=pos(',',a);
delete(a,i,1);
end;
showmessage(a);
end;