Zur Laufzeit erzeugten Button das OnClick-Ereignis ausführen

[EdAdvokat]

Delphi-Quellcode:

procedure TForm1.btnKeylockClick(Sender: TObject);
begin
  if (edtKey.PasswordChar='*') then
  begin
   (edtKey.PasswordChar:=#0)end else
    edtKey.PasswordChar:='*';
end;

sicher nicht die hochprofessionellste Lösung