вставить пропуск строки в String

[impeee]

имеется текст

s:= 'первая строка AAA вторая строка';

как я могу заменить 'AAA' на пропуск строки?

вот так не получается..

StringReplace(s, 'AAA', #13, [rfReplaceAll, rfIgnoreCase]);

можно было бы посчитать кол-во символов до 'AAA', записать ее в i какое-нибудь, и сделать WrapText(s, i); но эта функия вообще почему-то не выполняется.. ((

Помогите пожалуйста, как я могу это сделать.. Спасибо заранее, добрые люди

[doktor255]

procedure TForm1.BitBtn1Click(Sender: TObject);
var s: string;
begin
s:= 'первая строка AAA вторая строк';
s := AnsiReplaceStr(s, 'AAA', #13);
ShowMessage(s);
end;

[Serge_Bliznykov]

потому что, надо записать так?

s:=StringReplace(s, 'AAA', #13, [rfReplaceAll, rfIgnoreCase]);

опоздал...

[impeee]

Сообщение от Serge_Bliznykov

потому что, надо записать так?

s:=StringReplace(s, 'AAA', #13, [rfReplaceAll, rfIgnoreCase]);

опоздал...

Большое всем спасибо!)))

[northener]

Если уж вставлять перевод строки, так уж грамотно. Не #13, а #13#10