// Gelistirilebilir..
procedure TForm1.FormShow(Sender : TObject);
var atom : integer;
CRLF : string;
begin
if
GlobalFindAtom('Kontrol için kullanılacak metin') = 0 then
atom := GlobalAddAtom(' Kontrol için kullanılacak metin ')
else
begin
CRLF := #10 + #13;
ShowMessage('Bu program, her windows sezonunda 1
kez çalışır.'+crlf+'+
Windows'u yeniden başlatın.'+crlf+
'Ya da bizi arayıp satın alın');
Close;
end;
end;