Unit1.pas 466 B

123456789101112131415161718192021222324252627282930313233
  1. unit Unit1;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, StdCtrls;
  6. type
  7. TForm1 = class(TForm)
  8. btn1: TButton;
  9. lbl1: TLabel;
  10. procedure btn1Click(Sender: TObject);
  11. private
  12. { Private declarations }
  13. public
  14. { Public declarations }
  15. end;
  16. var
  17. Form1: TForm1;
  18. implementation
  19. {$R *.dfm}
  20. procedure TForm1.btn1Click(Sender: TObject);
  21. begin
  22. lbl1.Caption := 'Hola Mundo!!';
  23. end;
  24. end.