unit blefrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure hello;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
hello;
end;
procedure hello;
begin
showmessage('god bless you');
end;
end.

編輯記錄

你在implementation裡面寫的hello沒有掛class name根本不是class method
於是event裡面呼叫的是自已private member method，而不是你有實作的hello procedure
//因為這個procedure是在你的event底下而且沒有forward 宣告

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

谢谢，问题解决。