Anderes Ereignis bei ButtonClick auslösen

[implementation]

oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  if Memo1.Lines.Count > 5 then Label2.OnClick(Sender);
end;