<div>
I didn't understand you problem, but if you want to make a parameter for a form you can do this: 
 
procedure YourProc(Sender: TYourForm); 
begin 
&nbsp; TYourForm(Sender).Color:=... 
&nbsp; TYourForm(Sender).Show:=... 
 
Motaz
</div>

I didn't understand you problem, but if you want to make a parameter for a form you can do this:

procedure YourProc(Sender: TYourForm);
begin
  TYourForm(Sender).Color:=...
  TYourForm(Sender).Show:=...

Motaz

<div>
<div class="content wysiwyg-content">
I want to avoid a duplicated program. 
So, I neet to make a funtion or procedure. 
 
In the next exsample, only formname is different on several cases.. 
How do I make a procedure? 
I think that I have to pass a Form name to function... 
 
ex) ====================================== 
var 
&nbsp; &nbsp;FormGF1A2200 : TFormGF1A2200; 
&nbsp; &nbsp;FormGF1A3300 : TFormGF1A3300; 
&nbsp; &nbsp;recCnt : Integer; 
&nbsp; &nbsp;layer : String; 
begin 
&nbsp;if layer = 'GF1A2200' Then 
&nbsp;begin 
&nbsp; &nbsp;FormGF1A2200 := TFormGF1A2200.CreateSelf); 
&nbsp; &nbsp;recCnt := FormGF1A2200.fnOpen_Query(sSelObjId); 
&nbsp; &nbsp;If (recCnt&gt; 1) then 
&nbsp; &nbsp; &nbsp; &nbsp;FormGF1A2200.Close 
&nbsp; &nbsp;else 
&nbsp; &nbsp; &nbsp; &nbsp;FormGF1A2200.ShowModal; 
&nbsp;end 
&nbsp;else if layer = 'GF1A3300' Then 
&nbsp;begin 
&nbsp; &nbsp;FormGF1A3300 := TFormGF1A3300.CreateSelf); 
&nbsp; &nbsp;recCnt := FormGF1A3300.fnOpen_Query(sSelObjId); 
&nbsp; &nbsp;If (recCnt&gt; 1) then 
&nbsp; &nbsp; &nbsp; &nbsp;FormGF1A3300.Close 
&nbsp; &nbsp;else 
&nbsp; &nbsp; &nbsp; &nbsp;FormGF1A3300.ShowModal; 
&nbsp;end; 
 
 
======================================= 
 

</div>
</div>

I want to avoid a duplicated program.
So, I neet to make a funtion or procedure.

In the next exsample, only formname is different on several cases..
How do I make a procedure?
I think that I have to pass a Form name to function...

ex) ======================================
var
   FormGF1A2200 : TFormGF1A2200;
   FormGF1A3300 : TFormGF1A3300;
   recCnt : Integer;
   layer : String;
begin
 if layer = 'GF1A2200' Then
 begin
   FormGF1A2200 := TFormGF1A2200.CreateSelf);
   recCnt := FormGF1A2200.fnOpen_Query(sSelObjId); 
   If (recCnt> 1) then
       FormGF1A2200.Close
   else 
       FormGF1A2200.ShowModal;
 end
 else if layer = 'GF1A3300' Then
 begin
   FormGF1A3300 := TFormGF1A3300.CreateSelf);
   recCnt := FormGF1A3300.fnOpen_Query(sSelObjId); 
   If (recCnt> 1) then
       FormGF1A3300.Close
   else 
       FormGF1A3300.ShowModal;
 end;


=======================================



Form parameter

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.