Создание процедур

[Viteef]

Написал я процедуру для чтения ini файла, но не могу вывести из процедуры(например в Edit-ы) переменные PRMF,ValuePRM.
И еще, где процедуру надо прописывать?

Procedure INI(const f:TextFile; Posit:word; PRMF,ValuePRM:string);
var s:string; i:word;
NomPosit:word;
begin
assignfile(f,'c:\ini.ini');
reset(f);
for i:=1 to Posit do
begin
readln(f,s);
if i=Posit then
begin
NomPosit:=pos('=',S);
ValuePRM:=s;
delete(ValuePRM,NomPosit,200);
PRMF:=s;
delete (PRMF,1,NomPosit);
closefile(f);
end
end
end;

Помогите кто чем может!

[Shuraken]

procedure INI(const Posit: word; var RPMF, ValueRPM: string);
var s: string; i: word;
f: TextFile;
NomPosit: word;
begin
assignfile(f, 'c:\ini.ini');
reset(f);
for i := 1 to Posit do
ReadLn(f, s);

NomPosit := pos('=',S);
//можно как ты написал
ValueRPM := s;
Delete(ValueRPM, NomPosit, 200);
RPMF := s;
delete(RPMF, 1, NomPosit);
....
//а можно и так
ValueRPM := copy(S, 1, NomPosit);
RPMF := copy(s, NomPosit, 200);
CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
INI(100, Edit1.Text, Edit2.Text);
end;

[Viteef]

INI(100,Edit1.text,Edit2.text);

Types of actual and formal var parametrs must be identical! - изрекла Delphi

[Shuraken]

Сорри за самоуверенность, код не проверял. Надо переписать так:

procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
begin
INI(100, s1, s2);
Edit1.Text := s1;
Edit2.Text := s2;
end;