текст в файл

[J-Fobos]

var
Stream:TFileStream;
s:string;

begin
try //пытаемся создать файл, но если такой существует то открываем его
Stream := TFileStream.Create('c:\test.dat', fmOpenReadWrite);
except
Stream := TFileStream.Create('c:\test.dat', fmCreate);
end;
Stream.Write(s,SizeOf(s));//запись в файл чего угодно
Stream.Read(s,SizeOf(s));//чтение с файла чего угодно
Stream.Free;//закрытие файла
end.

Это универсальный вариант, в файл можно будет писать все что угодно. Но он сложный - требует много внимания
Для простоты можно использовать стандартную возможность класса TSringList.SaveToFile();