[axelbb]

Aqui:

Código Delphi [-]
 
var
  Form1: TForm1;
implementation
{$R *.dfm}
 
{$R+} 
 
procedure TForm1.Button1Click(Sender: TObject);