Используй TextFile, AssignFile(), writeln и readln. Rewrite()-запись, Reset() -открытие файла, CloseFile() - закрытие твоего файла.
Код:
var
f: TextFile;
name: String[80];
i: integer;
begin
if Form1.SaveDialog1.Execute then
name := Form1.SaveDialog1.Filename;
AssignFile(f, name);
{$I-}
Rewrite(f);
for i:=0 to Form1.Memo1.Lines.Count do
writeln(f, Form1.Memo1.Lines[i]);
CloseFile(f);
end;
Ini - устарел, лучше используй XML.