[Михалыч]

Кнопка "Сохранить данные"

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
with TInifile.Create(SaveDialog1.FileName) Do
begin
  WriteString('Дом','',Edit1.Text);
  WriteString('Длина','',Edit2.Text);
  WriteString('Ширина','',Edit3.Text);
  WriteString('Площадь','',Edit4.Text);
end;
end;
end.