>>242
＞できる。書き方が間違ってたんだろ。
そうですよね・・・　すいません

こういう風に書いてます。

interface
function Msg(strMsg: String):boolean;

＜省略＞

function Msg(strMsg: String):boolean;
ShowMessage(strMsg);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Msg('AAA');
end;


フォームに関数を作成する練習として、
メッセージボックスを関数を使って表示させようとしています。
（戻り値は返してません）