INI компонент

[romanzi]

Составил функцию - которая вроде работает (файл создаётся и работает), но не выполняет заданные действия:

Не пишет путь до файла который открыли memo, с помощью OpenDialog...
Вот громадный фрагмент кода:

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyFunction;
end;

function TForm1.MyFunction: Boolean;
var
IniFile: TIniFile;
begin
result:=false;
if (label1.Caption <> '' ) and (label2.Caption <> '') and (label3.Caption <> '') then
begin
IniFile := TIniFile.Create(ExtractFilePath(paramstr(0)) + 'nsa.ini');

IniFile.WriteString('form1','label1',opendialog1.FileName);
IniFile.WriteString('form1','label2',opendialog1.FileName);
IniFile.WriteString('form1','label3',opendialog1.FileName);
IniFile.Free;

label1.Caption:='1.' ;
label2.Caption:='2.' ;
label3.Caption:='3.'  ;


result:=true;

end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

end.

[ArtGrek]

а как в ини будут заносица пути к фаилам, когда создание и заполнение ини происходит во время создания формы а кнопку ты нажимаеш потом