Синтаксическая ошибка

[romanzi]

Выбивает эту синтаксическую ошибку....

procedure TForm11.Button1Click(Sender: TObject);

  var
Ret: AnsiString;
I: Integer;
S:TstringList ;
begin
 edit2.Text:=RichEdit1.Text;
Ret :=edit2.Text ;
for I := 1 to Length(Ret) do
Ret[I] := Chr(Ord(Ret[I]) + 1) ;
 Richedit1.Text:=edit1.Text;
Edit2.Text := Ret;

 richedit1.Text:=edit2.Text;

  S:=TStringList.Create;
S.Text:=richedit1.Text;
S.SaveToFile(richedit1.Text);
RichEdit1.Clear;

[Человек_Борща]

Все нормально. Код компилируется без ошибок.

[romanzi]

да,у меня последняя процедура:

S:=TStringList.Create;
S.Text:=richedit1.Text;
S.SaveToFile(richedit1.Text);

Выдаёт ошибку.

[Человек_Борща]

О, ты крут! Я знаю в чём проблема! В тебе! Ты не прочитал правила форума. А ведь там сказано, что пользователи не обладают телепатией.