callback in showmessage

[lucksjb]

This routine is with error

a:= 1;

b:= 1;

// in this code 

  if a=b then begin

    showmessage( 'A = B',  // this message don´t showed 

        procedure(Res: Integer) begin

               CLOSE

        end

    );

  end;

 

  showmessage('Just this message is showed ');

 

 

I know this using the follow workaround :

a:= 1;

b:= 1;

 

// in this code 

  if a=b then begin

    showmessage( 'A = B'); // this message is displayed

  end else begin

     showmessage('this message don´t showed ');

  end;

 

 

 

 

How can I do it using callback ?

 

tnx advanced

Luciano 

[Farshad Mohajeri]

Moved to General.