Developing.ru

Народ я только начинаю заниматься Делфой помогите пожалуйста. У меня есть модуль в котором имеется набор процедур. Вот короткий текст:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, inifiles;
type
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1 : TForm;
IniPath: string;

implementation
{$R *.dfm}

procedure WriteIni;
var MyIni:TIniFile;
begin
MyIni:=TIniFile.Create(IniPath);
MyIni.WriteBool('sound','cbSound',Form1.cbSound.Checked);
MyIni.WriteBool('Title','timer', Form1.cbTimer.Checked);
MyIni.Free;
Form1.Close
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WriteIni;
ReadIni;
end;
end.

А теперь вопрос. Как мне вызвать процедуру "procedure WriteIni" из любого места программы (тоесть из любого модуля). Где мне ее надо объявить. Если можно с крохотным примером.Всем спасибо.

Можт я плохо объяснил суть вопроса. Итак у меня есть Форма номер раз (на этой форме находится текст написанный выше). И есть Форма номер два на ней кнопочка. Мне надо сделать следующее. При нажатии на ваттон(на форме 2 вызвать процедуру с формы 1). Приблизительно следующее.

Procedure form2.Button1Click(sender:TObject)
begin
WriteIni
end;

если так написать выдается ошибка что WriteIni неизветная переменная. Так вот где и что мне надо прописать чтобы вызвать процедуру с другой формы.

Uses ... Unit1

Кстати, в первом посте у тебя странно как-то... описания Form1 нету....

Да в interface секцию надо воткнуть прототип (то есть заголовок) функции, и все.
Потом в другом модуле только Uses Unit1, и WriteIni сколько хочешь.