Memo- 1 linia

Hym istnieje możliwość napisania programu w którym z <font color="red">komponętu</span> memo który zawiera pare lini , zapisać w 1 lini w pliku np txt???Jak tak to może zna ktoś procedurę :-)

var S: String;
begin
S:=Memo1.Lines.Text;
S:=StringReplace(S, #13#10, '|', [rfReplaceAll]);
Memo1.Text:=S;
Memo1.Lines.SeveToFile('Nazwa Pliku');
end;

//już poprawione

wielkie wielkie thx :-) myślałem że będem musiał zrezygnować albo kombionowąć dopiero w sobote.

A jednak coś nielata błąd pokazuje się na lini :
S:=StringReplace(S, #13#10, '|',rfReplaceAll);
czy może niedodałem coś do listy users ??? lub brakuje mi jakiegoś komponętu bo pisze mi :
[Error] Unit1.pas(33): Undeclared identifier: 'StringReplace'
[Error] Unit1.pas(33): Undeclared identifier: 'rfReplaceAll'

DobryMis mowi:
Wpisujesz sobie do jakiejs procedury slowo StringReplace, zaznaczasz je, cisniesz F1, pokazuje Ci sie help delphi juz z wyszukana odpowiednia zawartoscia (jesli f-cja zostala odnaleziona w helpie ofkoz). Szukasz slowa "Unit" i patrzysz co pisze pod nim. Odpowiedz: SysUtils. Ten unit musi byc w uses.

dopisane:
a nie powinno byc tak? :

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