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:

procedure TFormAktuelleLZADaten.cmdAktualisierenClick(Sender: TObject);
begin

  FormAktuelleLZADaten.Aktuelle_Schaltdaten_ermitteln(StrToInt(lblLZANR.Caption));

end;



procedure TFormAktuelleLZADaten.Aktuelle_Schaltdaten_ermitteln(LZANR :integer);
var
  Query :TQuery;
  Zentrale :string;
  Zeitstempel :string;

begin

//hier werden zuerst die Daten ermittelt...

     //Übertrag der Werte an das Formular
     DateTimeToString(Zeitstempel,'DD.MM.YYYY HH:NN:SS',now);
     FormAktuelleLZADaten.Caption := 'Aktuelle Daten zur LZA '+IntToStr(LZANR)+' '+LZA_Name+'  Zeitstempel: '+Zeitstempel+'Uhr';

     FormAktuelleLZADaten.lblLZANr.Caption := IntToStr(LZANR);
     FormAktuelleLZADaten.lblLZAName.Caption := LZA_NAme;
     FormAktuelleLZADaten.lblZeitstempel.Caption := Zeitstempel+'Uhr';
     FormAktuelleLZADaten.txtPRgNr.Text := Query.fieldbyName('SP_NR').AsString;
     FormAktuelleLZADaten.txtBTFKT.Text := Query.fieldbyName('BETRIEBSFUNKTION').AsString;
     FormAktuelleLZADaten.txtUmlaufzeit.Text := Query.fieldbyName('SP_TU').AsString;
     FormAktuelleLZADaten.txtPrioritaet.Text := Query.fieldbyName('PRIORITAET').AsString;
     FormAktuelleLZADaten.txtOffset.Text := Query.fieldbyName('OFFSET_ZEIT').AsString;
     FormAktuelleLZADaten.txtSynchronisierung.Text := Query.fieldbyName('SYNCHRONISIERUNG').AsString;

     Query.Free

...					

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

procedure TForm1.Button1Click
          (Sender :TObject);
begin
  TButton(Sender).Caption              :='Geklickt';
    // Sender wird in TButton umgewandelt
  TForm(TButton(Sender).Owner).Caption :='Dieses Form wird aktualisiert';
    // Sender wird in TButton umgewandelt, danach die Eigenschaft Owner
    // von diesem TButton in TForm umgewandelt und wiederum dessen
    // Caption neu zugewiesen.
end;