Twoje dryobates sie wiesza :-P
Sheitar napisal takie coś :
function UsunSpacje(Txt: String): String;
var
L: TStringList;
S: String;
n: Integer;
F: Boolean;
begin
L:=TStringList.Create;
F:=False;
if Txt[Length(txt)]<>'"' then Txt:=Txt+'"';
while Pos('"',Txt)>0 do
begin
S:=Txt;
Delete(S,Pos('"',Txt),Length(Txt));
if not F then L.Add(S) else L.Add('"'+S+'"');
F:=not F;
Delete(Txt,1,Pos('"',Txt));
end;
Result:='';
for n:=0 to L.Count-1 do
begin
S:=L.Strings[n];
if S[1]<>'"' then
begin
while Pos(' ',S)>0 do
begin
Delete(S,Pos(' ',S),1);
end;
L.Strings[n]:=S;
end;
Result:=Result+L.Strings[n];
end;
L.Free;
end;
i na razie ładnie działa ;p