unit licenceform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  bitmapactionbutton, StdCtrls, ExtCtrls,Global;

type
  Tlicence = class(TForm)
    ok: TBitmapActionButton;
    lic: TMemo;
    lictitmer: TTimer;
    procedure FormResize(Sender: TObject);
    procedure okClick(Sender: TObject);
    procedure lictitmerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  licence: Tlicence;
  n  : integer;
procedure showlicence;


implementation
uses empripmain;

procedure showlicence;
begin
application.createform(tlicence,licence);
try
licence.ShowModal;
finally
licence.free;
end;
end;

{$R *.DFM}

procedure Tlicence.FormResize(Sender: TObject);
begin
ok.font.size:=aspy(12);
ok.font.name:=DEFAULTFONT;
ok.font.color:=FONTCOL;
ok.left:=(width div 2) -(ok.width div 2);
ok.top:=height-ok.height;
lic.top:=0;
lic.left:=0;
lic.width:=width;
lic.height:=ok.top;
lic.SelStart:=0;

end;

procedure Tlicence.okClick(Sender: TObject);
begin
modalresult:=1;
end;

procedure Tlicence.lictitmerTimer(Sender: TObject);
begin
if lic.SelLength>0 then exit;
if lic.selstart<length(lic.text) then lic.selstart:=lic.selstart+100;
SendMessage(lic.Handle, EM_SCROLLCARET,0, 0);
end;

end.