Delphi dicas

Utilizar o messagebox com parâmetros

Var

button : Integer;

msg1 : Array [0..79] of Char;

msg2 : Array [0..79] of Char;



begin

        StrPCopy(Msg1, Edit1.Text + ' ' + Edit2.Text);

        StrPCopy(Msg2, Edit3.Text + ' ' + Edit4.Text);

        Button := Application.MessageBox (Msg2,Msg1, MB_YESNOCANCEL + mb_DefButton1 + MB_ICONQUESTION);

end;