TfpgMessageBox

pt 

HandleKeyPress

pt 

HandlePaint

pt 

HandleShow

Create

Destroy

SetMessage