1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Procedure DruckeAdresse(IPCanvas : TCanvas;  Ed : TEdit;  LDR,DZ : integer);  
Var ZH:integer;
Begin
     IPCanvas.TextOut(LDR, DZ, Ed.Text);     
End;

Procedure DruckerAusgabe(IPCanvas:TCanvas; Grid1,Grid2:TStringGrid );
Var 
   Form : TForm;
   LDR, ZH : integer;     weitere Deklaration….
Begin
    If Grid1 = Form1.StringGrid1 then Form := Form1 else    // hier klappt noch alles
    If Grid1 = Form2.StringGrid1 then Form := Form2;          // hier klappt noch alles
    DruckeAdresse(IPCanvas, Form.Adr1, LDR, DZ);           // hier wird die TEdit --> Adr1 nicht erkannt.
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

//--------------------------------------
Procedure DruAdrEd(IPCanvas:TCanvas; const Edit:TEdit; const LDR:integer;  var DZ:integer; 
                                    const FktZH, FktFo : double);      // Ausgabe auf Drucker oder Image
var ZH:integer;
Begin
    With IPCanvas do
    Begin
      Font:=Edit.Font;
      SetFontAusgl(IPCanvas, Edit.Font,FktFo);   // Fontangleichungsroutine f.Dru- / Image-Ausgabe
      Textout(LDR,DZ,Edit.Text);
      ZH:=TextHeight('Y');
      DZ:=DZ -Round(ZH*FktZH);  // Abstand zw.den Zeilen
    End;
End;
//---------------------------------------------
Procedure DruckeAdresse(IPCanvas,:TCanvas; Frm:String; const LDR:integer; var DZ:integer; 
                                             const FktZH, FktFo : double);
if Frm = ' Form1' then begin
  with Form1 do
  Begin
     if EdAdr1.Text<>'' then DruAdrEd(IPCanvas,EdAdr1,LDR,DZ,FktZH,FktFo); {Anrede}
     if EdAdr2.Text<>'' then DruAdrEd(IPCanvas,EdAdr2,LDR,DZ,FktZH,FktFo); {Vor/Zuname}
     usw...
  end;
end else begin
   if Frm = ' Form2' then
   with Form1 do
   Begin
      if EdAdr1.Text<>'' then DruckeAdrEd(IPCanvas,EdAdr1,LDR,DZ,FktZH,FktFo); {Anrede}
      if EdAdr2.Text<>'' then DruckeAdrEd(IPCanvas,EdAdr2,LDR,DZ,FktZH,FktFo); {V/Zname}
      usw...
   end;
end;
//------------------------------------------------
Abfrage in Haupt-Dru-Routine:
if Grid1 = Form1.StringGrid1  then Frm := 'Form1' else    
if Grid1 = Form2.StringGrid  then Frm := ' Form2';
DruckeAdresse( … );    
usw…
//----------------------------------------------                    

1:

TEdit(Form.FindComponent('Adr1'))                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  if Grid1 = Form1.StringGrid1  then 
  begin
     if Pos('Rechnung',Form1.EdAdr6.Text)>0 then RngFlg:=true;
     if Pos('Angebot', Form1.EdAdr6.Text)>0 then AngFlg:=true;
  end else
  if Grid1 = Form2.StringGrid1 then 
  begin
     if Pos('Rechnung',Form2.EdAdr6.Text)>0 then RngFlg:=true;
     if Pos('Angebot', Form2.EdAdr6.Text)>0 then AngFlg:=true;
  end;
  ReAngDru:= (RngFlg) or (AngFlg) or (FKoAnz=false);