HOLY SHIT!!!!! you are gonna get extra points with this safe function I quickly made :P
SCAR Code:
Function StoreText: boolean;
var
A : string;
Text : TStringList;
begin
A := 'Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Vivamus sed massa. Aliquam erat volutpat. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos hymenaeos. Pellentesque ipsum libero, sollicitudin quis, bibendum sit amet, porttitor in, neque. Suspendisse adipiscing, felis a aliquam imperdiet, sapien nisi varius ante, vitae accumsan lectus tortor nec leo. Nullam nibh pede, auctor nec, vehicula vel, sodales a, diam. Suspendisse et risus vitae sapien rutrum condimentum. Aliquam sollicitudin auctor lorem. Nullam vel justo quis tellus sollicitudin aliquet. Etiam pharetra auctor leo. Vestibulum dolor ipsum, lobortis eget, sagittis eu, tempus ut, erat. Sed tortor mi, iaculis molestie, imperdiet vitae, fringilla sit amet, odio.';
Text := TStringList.Create;
text.add(A);
SaveToFile(Text, AppPath + 'Yourmap\Test.txt'); { File to safe to }
end;
Good luck with it. If this isn't what you want just tell me ;P