Messagebox svar?

procedure TForm1.Button1Click(Sender: TObject);
begin
case Application.MessageBox('Test msg', 'Test', MB_YESNOCANCEL + MB_DEFBUTTON1
+ MB_ICONEXCLAMATION) of
mryes: Showmessage('Ja');
mrno:    Showmessage('Nej');
mrcancel:  Showmessage('Cancel');
end;

end;

tak...