Периодичность в ini

[romanzi]

Короче говоря, нужно так, что бы

Label2 записывался, только если в Label1 что-то есть (если он НЕ пустой).

function TForm4.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)) + 'nsa2.ini');

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

Label1.Caption := IniFile.ReadString('form1','label1',opendialog1.FileName);
Label1.Caption := IniFile.ReadString('form1','label2',opendialog1.FileName);
Label1.Caption := IniFile.ReadString('form1','label3',opendialog1.FileName);


result:=true;

end;
end;

Всех кого интересует. что я пытаюсь сделать - это пути до файла который я открыл.

[Человек_Борща]

вот после такого

IniFile.Free;

Label1.Caption := IniFile.ReadString('form1','label1',opendialog1.FileName);

Ваш код вообще не работоспособен.

++++ADDED+++++

Думаю вам нужно это:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  ini: TIniFile;
  myDir: string;
begin
  myDir := ExtractFilePath(ParamStr(0));  //Текущаяя папка
  ini := TIniFile.Create(myDir + 'IniFile.ini');     //Создаём файл
  try
    for i := 0 to Form1.ComponentCount - 1 do      //Пересчёт копонент на форме
    begin
      if (Form1.Components[i].ClassType = TLabel) then    //Если текущий компонент язвляется Tlabel
      begin
       //Удаляем все пробелы и проверяем длинну caption'а лабела
        if not (Trim((Form1.Components[i] as TLabel).Caption) = '') then
        //Если он не равен NULL тогда записываем имя компонента и его значение
          ini.WriteString('Labels', (Form1.Components[i] as TLabel).Name, (Form1.Components[i] as TLabel).Caption);
end;
end;
finally
  //Освобождаем и нилим пеменнуют
  FreeAndNil(ini);
end;
//в мемо грузм результат
Memo1.Lines.LoadFromFile(myDir+'iniFile.ini');
end;

с вас +