Вызов процедур (функций)

[greed]

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

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" из любого места программы (тоесть из любого модуля). Где мне ее надо объявить. Если можно с крохотным примером.
 :cry:Всем спасибо.

[RomCom]

Просто добавь в другой модуль Unit1 в строке uses.
И усё

[Finch]

RomCom не будет работать. Надо еше эту функцию объявить в секции interface

[RomCom]

точно.
извеняюсь. поспешил с ответом.

[greed]

Я конечно извиняюсь. Объвить каким образом. Напишите пожалуйст что надо прописать в секции interface. Просто указать название процедуры и все или еще что-то?

[RomCom]

Код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, inifiles;

procedure WriteIni;

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;
 

в другом модуле:

Код:

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Unit1;

[greed]

Всем спасибо за помощь