TOPIC:

procedure TForm1.Button1Click(Sender: TObject);
var
  _tempList:TStringList;
begin
  FProjectName:='project1';
  _tempList:=TStringList.create;
  try
    _tempList.add('\gen\com\pascal\lcltest');
    _tempList.savetofile('before_ansireplacetext.txt');
    _tempList.Text := AnsiReplaceText(_tempList.Text, 'com\pascal\lcltest','com\pascal\'+ FProjectName);
    _tempList.savetofile('after_ansireplacetext.txt');
  finally
    _tempList.free;
  end;
end;