unit Unit1;     
          
interface
          
uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,     
      Dialogs, StdCtrls;     
          
type
      TForm1 = class(TForm)     
        Button1: TButton;     
        procedure Button1Click(Sender: TObject);     
        procedure FormCreate(Sender: TObject);     
      private
        { Private declarations }
      public
        { Public declarations }
      end;     
          
      Вопрос = string;     
      Ответ на вопрос = string;     
          
      Сообщение = procedure( const Msg: string );     
          
var
      Form1: TForm1;     
      Не плохо бы увидеть сообщение: Сообщение;     
          
implementation
          
{$R *.dfm}
          
function Сколько сейчас времени: Ответ на вопрос;     
begin
       Result := TimeToStr( Time );     
end;     
          
function Какое сегодня число: Ответ на вопрос;     
begin
       Result := FormatDateTime( 'dd mmmm yyyy', Date );     
end;     
          
procedure Скажите пожалуйста( Вопрос: Вопрос );     
begin
       Не плохо бы увидеть сообщение( Вопрос );     
end;     
          
procedure TForm1.FormCreate(Sender: TObject);     
begin
       // @Не плохо бы увидеть сообщение := @ShowMessage;     
       Не плохо бы увидеть сообщение := ShowMessage;     
end;     
          
procedure TForm1.Button1Click(Sender: TObject);     
begin
       Скажите пожалуйста( Сколько сейчас времени );     
       Скажите пожалуйста( Какое сегодня число );     
end;     
          
end.