Помогите создать файл

[Inferno]

Ребята помогите сделать так чтобы программа создавала файл своего формата. PLEASE (Например *.SEC)

[UnD)eaD)Snake]

Всмысле регистрировала в реестре формат? Или чтобы просто сохраняла файл?

[mutabor]

расширение своим файлам ты можешь давать любое, как текстовым так и всем остальным

[Inferno]

Я нашёл код для сохранения:
procedure TForm1.Button1Click(Sender: TObject);
var
f : TStringList;
n : integer;
begin
f:=TStringList.Create();
if (edit1.Text<>'') then
begin
for n:=0 to memo1.Lines.Count do
begin
f.Add(memo1.Lines.Strings[n]);
f.SaveToFile(edit1.Text+'.sec');
end;
end
else
begin
showmessage('Имя файла не указано!');
end;
f.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.clear;
edit1.text:='';
end;

Только помогите сделать так чтобы программа загружала файлы!!!!

[mutabor]

во первых вот это

 for n:=0 to memo1.Lines.Count do
begin
f.Add(memo1.Lines.Strings[n]);
f.SaveToFile(edit1.Text+'.sec');
end;

замени этим

 for n:=0 to memo1.Lines.Count - 1 do
f.Add(memo1.Lines.Strings[n]);
 f.SaveToFile(edit1.Text+'.sec');

а это загрузка

Memo1.LoadFromFile(edit1.Text+'.sec');

[Inferno]

Спасибо за код только он не работает.
Memo1.LoadFromFile(edit1.Text+'.sec ');
Выдаёт ошибку

[Квэнди]

и?
где код?
где пример файла ?