как создать свою подпрограмму

[tviktor77]

Подскажите какие параметры надо ставить, не могу понять, выдает ошибки.

procedure key1(?????);
    begin
        edit2.Text:=IntToHex(Ar[85], 2)+' '+IntToHex(Ar[86], 2)+' '+IntToHex(Ar[87], 2)+' '+IntToHex(Ar[88], 2);
      end;

[ZuBy]

какую ошибку выдает?

в public
указать

procedure key1;

procedure Form1.key1;
begin
edit2.Text:=IntToHex(Ar[85], 2)+' '+IntToHex(Ar[86], 2)+' '+IntToHex(Ar[87], 2)+' '+IntToHex(Ar[88], 2);
end;