Código:
unit a; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, MaskEdit, StdCtrls, ExtCtrls, PrintersDlgs; type { TForm1 } TForm1 = class(TForm) Memo1: TMemo; PageSetupDialog1: TPageSetupDialog; ToggleBox1: TToggleBox; procedure Memo1Change(Sender: TObject); procedure ToggleBox2Change(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation { TForm1 } procedure TForm1.ToggleBox2Change(Sender: TObject); begin end; procedure TForm1.Memo1Change(Sender: TObject); begin end; initialization {$I a.lrs} end.