Código Delphi [-] Application.MessageBox(PChar(Edit1.Text),'Prueba',MB_OK)
Application.MessageBox(PChar(Edit1.Text),'Prueba',MB_OK)