Как создать свойство и передавать в него параметры

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls;
 
type
 
  { marks }
 
  marks=class
    private
      p:string;
 
      temp:Tstringlist;
 
      procedure setmark(name:string;index:integer; value:char) ;
      function search(name:string;inex:integer):integer;
    public
      function r():string;
      procedure w(value:string);
      property patch:string read r write w;
      constructor create(value:string);
 
 
  end;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Op1: TOpenDialog;
    r1: TRadioButton;
    r2: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  students:marks;
 
implementation
 
{$R *.lfm}
 
{ marks }
 
 
 
constructor marks.create(value: string);
begin
  patch:=value;
end;
 
function marks.search(name: string; inex:integer): integer;
var
  f:TextFile;
  buf:string;
  count,i:integer;
begin
  assignfile(f, patch);
 
  result:=0;
  count:=0;
  reset(f);
  while not EOF(f) do
  begin
    readln(f, buf);
    //showmessage(buf);
    if pos(name,buf)>0 then
    begin
      for i:=1 to length(buf)-1 do
      if buf[i]=';' then
      begin
        inc(count);
        if(count=inex) then
        begin
        result:=strtoint(buf[i+1]);
        closefile(f);
        Exit();
        end;
      end;
      if(count<inex)then
      result:=-1;
    end;
  end;
  closefile(f);
end;
 
function marks.r: string;
begin
  result:=p;
 
end;
 
procedure marks.w(value: string);
begin
 p:=value;
end;
 
 
procedure marks.setmark(name: string; index: integer; value: char);
var
  f:TextFile;
  buf:string;
  count,i:integer;
begin
  assignfile(f, patch);
  temp:=TstringList.Create();
 
  count:=0;
  reset(f);
  while not EOF(f) do
  begin
    readln(f, buf);
    //showmessage(buf);
    if pos(name,buf)>0 then
    begin
      for i:=1 to length(buf)-1 do
      if buf[i]=';' then
      begin
        inc(count);
        if(count=index) then
        begin
        buf[i+1]:=value;
        //closefile(f);
        //Exit();
        end;
      end;
 
 
    end;
    temp.add(buf);
    //showmessage(temp[temp.count-1]);
 
  end;
  closefile(f);
  rewrite(f);
  for i:=0 to temp.Count-1 do
  writeln(f, temp[i]);
  closefile(f);
end;
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.visible:=false;
if Op1.execute then
begin
  students:=marks.create(Op1.filename);
  label3.caption:=students.patch;
end;
 
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  res:string;
begin
  if(r1.checked=True)then begin
  res:=inttostr(students.search(edit1.text, strtoint(edit2.text)));
  if res='0' then
  edit3.Text:='ненайдено имя '+edit1.text else
  if res='-1'then
  edit3.Text:='ненайден столбец'else
  edit3.Text:=res;
  end else
  if(r2.checked=true) then begin
  students.setmark(edit1.text, strtoint(edit2.text), edit3.text[1]);
  end;
end;
 
 
end.