procedure SlovenskaDelphiScena;
 var Delphi: tool;
begin
 ConnectToInternet;
  OpenWWW('http://www.delphi-si.com');
  InsertUserName(Edit1.text);
  InsertPassword(*******);

While not(Help.found) or not(Info.found) or
      not(DelphiStuff.found) do
 begin
   LookIn('Novice', 'Forum', 'Članki',
          'Projekti', 'Datoteke', 'Projekti',
    'Povezave', 'Ankete');
 end;
 
if YouKnowSomethink(AboutDelphi) then
       HelpOtherDelphiUsers(Anything);
 
 CloseInternetBrowser;
 DisconnectFromInternet;
end.