source code RSA unit 1

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls;
type
Tmain2 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure cq(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var

main2: Tmain2;
a:integer;
plh:boolean; mutex:THandle;
implementation
uses encform, Unit2;
{$R *.dfm}
procedure Tmain2.cq(Sender: TObject; var CanClose: Boolean);
var
ext:integer;
begin
ext:=Application.MessageBox('Apa anda yakin mau
keluar?','warning',MB_YESNO+MB_ICONWARNING);
case ext of
IDNo : canclose:=false;
//IDYES :
end
end;

procedure Tmain2.FormCreate(Sender: TObject);
begin
a:=0;
timer1.Enabled:=true;
end;

procedure Tmain2.Timer1Timer(Sender: TObject);
begin
inc(a);
if a=250 then
begin
timer1.Enabled:=false;
main1.Show;
main2.hide;
plh:=false;
end;
end;
end.