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.