function DeleteLineBreaks(const S: string): string;
var
 Source, SourceEnd: PChar;
begin
 Source := Pointer(S);
 SourceEnd := Source + Length(S);
 while Source < SourceEnd do
 begin
  case Source^ of
  #10: Source^ := #32;
  #13: Source^ := #32;
  end;
  Inc(Source);
 end;
 Result := S;
end;

function DeleteLineBreaks(const S: string): string;

{©Drkb v.3(2007): <a href="http://www.drkb.ru" title="www.drkb.ru">www.drkb.ru</a>,

 ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

begin

 Result := StringReplace(S, #10#13, '',[rfReplaceAll]);

end;