Kann ein ButtonClick ein result zurückgeben?

[delphicoder123]

Hallo,
ist es möglich, beim Klick auf einen Button ein result zurückzugeben? So, wie in einer Funktion?

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Message 1');
end;