Lazarus Funktion als Baustein nutzen

[stay]

Hallo hoffe ich habe das richtige Forum getroffen.
Ich bin eher unerfahren und hätte eine Frage.
Bei der Programmierung einer SPS kann ich wiederholende Funktionen einmal Programmieren und dann als fertigen Baustein nutzen, mit veränderten Ein- und Ausgangswerten. Also z.B. eine Motorsteuerung, AN AUS NOTAUS LINKS- UND RECHTSlAUF...

Kann ich vergleichbares in Lazarus erstellen?

Als Beispiel:

procedure TForm1.NAME1Click(Sender: TObject);
begin

IF NAME3 > 12 then
NAME2.cells[0,1] := 'Pommes';
NAME2.cells[1,0] := 'Döner';
end;


Es soll so sein, dass ich die Funktion in sich geschlossen habe und von außen nur die Eingabe (NAME1,NAME2) und Ausgabe (NAME2) habe.
NAME1 = Button1 , Button2...
NAME2= Stringgrid1, Stringgrid2...
NAME3= 12,31,2...

Ist das möglich, was nehme ich dazu?

Vielen Dank