eval Befehl aus PHP in Delphi

[Chewie]

OK, das ist etwas leichter:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Sender is TButton then //Prüfung auf best. Typ
  //entweder:
  ShowMessage(Sender as TButton).Caption);  //Umwandlung in best. Typ (Variante1)

  //oder:  
  ShowMessage(TButton(Sender).Caption);  //Umwandlung in best. Typ (Variante2)
end;