SRL Archive - OSR Intermediate Scripting Tutorials

[LEFT]
• Begginers
• The Basics
• Understanding SCAR
• Your First Script
• Those Annoying Errors
• Finding Color
• AntiBan
• Building Proggies
• Scripting Standards
• Functions - Creating And Understanding
• Developing And Maintaining A SCAR Script
• Intermediate
• DTMS
• BitMaps
• Arrays
• Radial Walking – Highly Needed :p
• Some Advanced Procedures
• Making Your Own functions
• Advanced
• Some Components
• Making Custom Var Types
• Forms

Begginers
The Basics

Ok Well The Basics Are Very Simple Yet At the same time Complex. To Understand the Idea of these "Objects" instantly, you must be open minded. So while you're reading this guide, anything is possible atm. Try to grasp the basic Concept of this chapter. It is not hard but you must be "Open Minded" if you have never scripted before.

CONSTANTS AND VARIABLES
Ok Now Take Heart. If you have never scripted, this will be confusing. It is not hard at all but because your brain has never seen this before, it may take you awhile to understand. Now there are two types "Objects in SCAR". Constants and Variables. These are simply Names for Storing Information. Now the difference between the two is that a constant DOES NOT CHANGE THROUGHOUT THE SCRIPT. A Variable CAN CHANGE THROUGHOUT THE SCRIPT. Ok Now so if you don't get that read it again.Most of you probably take some kind of math with variables, trying to find the missing number. All a variable is, is a number that can change.

For Example

a constant would be like


  Number = 1;

From that point on in the script, the Word "Number" would store the number one and it would never change. This is useful for Usernames and passwords, while logging in.



A Variable However can change.
Most people have trouble with variables as the can't grasp the concept so just be open minded. This would be an example of a variable


banks : integer;

Ok now don't worry about the

: integer;
Just yet. All you need to see is the banks. This word stores the amount of times you have banked. Hopefully You have grasped this concept but if you haven't, I'm always on msn as said earlier(pwnaz0r@hotmail.com) or try JAD (runescapeMacro@hotmail.com)

now

Declaring Constants and Variables
Alright well , think of SCAR As a car. When you want the car to go, you press the gas. When you want it to stop, the brakes , etc. But it also has the engine you know nothing about(or you don't know about yet :D). Well in SCAR, You have to state or "Declare" the constants and variables. All you are doing is setting the value of the variable/constant. The only way I can explain is by showing you.

This is what you would do to "Declare" a constant. Most people like to do this right under the program line. This is what you do.


const
  Name = 'Clay';

Now lets break this down. I Put "Const" because I want it to Label "Name" as a constant. Then i set the Value of "Name" as a Set of our letters called a string. The only reason i have the

'   '
around My name is because thats what tells SCAR it is a string. Anyway we will learn that later. Now, On to declaring a variable.


var
  Banked : integer;

ok now this is where we learn about the

: integer;

While using SCAR There are four types of variables. Remeber to be open minded here.
[LEFT]
• Integer - Probably the most common, Is Used For Regular Numbers - Examples : 1, 34 , 3354
• Extended - These are numbers that are not whole - Examples 6.4, -35, 5.553
• Boolean - This can result True or False - Examples : True, False
• Strings : This was mentioned earlier, a strip of characters - Examples: 'Clay', 'McDonalds', ' Greg'
[/LEFT]

Deeper Explaination
Ok Now If You understand the types above then skip this section. This is where alot of people seem to have some trouble. It is not all that hard to understand these. Basically, we will use the examples of talking to a person to understand them. Ok now an integer is like your teacher asking you " What is 1 + 1 ?". You would answer 2 unless you're dumb :D. That would be an integer, because it is in fact a whole number. It is not negative and does not have a decimal. Now an extended would be be more like your teacher asking you " What is 7.4 + 6.3 ?". If you add these up you get 13.7 which does have a decimal so it would have to be extended. Boolean is a true/false question on a test. An example would be your teacher asking you " Is Pwnaz0r Awesome?". You would undoubtedly say "True". Lastly, The string would be like your teacher asking you to read from a book(kind of). This variable is usually the easiest. Anyways, the example would be you reading the text " Jack and Jill Went Up The Hill".

Alright Now i think you may understand Constants and Variables by now. If you do, pat yourself on the back. It wont get any harder than that :D. If you don't understand, Message Me on MSN (At the top) or JAD (Also at the top).

Now, we will move on to what we call "Procedures". Procedures are like instructions. They tell scar what to do. So we are going to Move on the making your first Script.

YOUR FIRST SCRIPT
ok, lets open our SCAR. You should get this.



Now Lets Put Some Spaces Like This (Does not have to be exact). We are doing this to add room for our scripting :).


Now we are going to declare a constant. Most Scripters put it under the program line so lets put it there. Type


const
  Name = '(INSERT NAME HERE)';

So it should look like this.


Now The basic Command For writing a line in the Box At the bottom left(the DebugBox) is called Writeln. (WRITELN - some people say WRITEIN it has an L not an I). so lets make a procedure named "Talk".



Ok now let me explain everything.
Now the line

Procedure Talk
Says that the folowing is a procedure;

The line

begin
Tells SCAR what to start doing in the Procedure "Talk.

The Line

Writeln(' Hi My Name Is ' + Name);
Tells Scar To Write " Hi My Name Is " and then your name. You kinda haveta remember how this is done.

The Line

end;
Tells SCAR that this is the end of the instructions for the procedure "Talk".


Now Add The Word "Talk" To The MainLoop. (MAIN LOOP- Tells SCAR In What order to do things). So in the end, this is what your script should look like.





Ok Now Press Play. If you don't know where play is, keep reading below. This should be what your SCAR program looks like after you have pressed play











UnderStanding SCAR
BONUS CHAPTER
Well I Did not list this chapter in the table of contents because i want you to learn everything only if you read the entire release. Here Are Some Explainations of SCAR. [LEFT] -Clicking this will result In a blank script. - This will Open An existing script. - This will Open any script from the web(only ones on Kaitneiks(Outdated)). – Will Save A Script. – Will Cut Text – Will Copy Text –Paste –Will Search The Script –Will Play the script –Pauses Script –Stop –Step Into –Step Over –Color Picker –CLears The Debug Box –Turns Report Box On Or Off -_Drag These CrossHairs to Select Client [/LEFT] Those Annoying Errors This Is Taken From JAD's Guide and Modified But I do Have permission to use it and this is half his tutorial Since he is an Uber Bro So Im just going to copy, paste, and modify. [LEFT] ERROR 1 : Close round expected in script. Pwnaz0r : Well This Means that You haven't put enough parenthesis around the fucntion that you called. EX.

If(FindBitMap(~~~~~) then

I didnt fill in the parameter but see? There are to Parenthesis in the front and one in the back. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD :Solution: Count your parenthesis on the line which the error occurs. for example: if (FindColorSpiralTolerance(x, y, RockColor, 0, 0, 249, 179, Tol) then see whats wrong with that? you have 2 ( ('s but only 1 ) to close it. you'd need to put 2 at the end of that like this: if (FindColorSpiralTolerance(x, y, RockColor, 0, 0, 249, 179, Tol)) then ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ERROR 2 : Include file C:Program FilesSCAR 2.03includesSRL/SRL.scar does not exist.
Pwnaz0r : You did not include the file right or the file does not exists. You can fix this by always making sure the file exists and your sources are right.

{.include srl/srl.scar}

JAD : Solution: this is the biggest error of all time. all you need to do for this is read the tutorial for installing SRL in the Install SRL forum. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ERROR 3 : Semicolon (';') expected in script Pwnaz0r : This is very common when first beggining to script. All you have to do is put a semcolon at the end of the line stated.

var
  InSane : boolean;//See the semicolon?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD :Solution: this used to happen to me A LOT when i didn't put a ";" after my variables. just remember to do so. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ERROR 4 : Unknown identifier (A WORD HERE) in script Pwnaz0r : Etheir you messed up in typing or the procedure/function/variables/constant does not exist. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD : Solution: this means that you did either did not type something write, you called a procedure that does not exist, you called for a variable that does not exist or you did no include an include, and call for it to setup at end of script (example if you needed to setup SRL in the main loop you need SetupSRL; in script and the include after program name) so if this happens just check what either what variable you used, usually you just spelled it wrong above where you declared it. check spelling of it. check procedure name and check name of procedure you called for. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ERROR 5 : Duplicate Identifier in script
Pwnaz0r : You have named two things the same name in script or they are already used in an include. Just change the name of the function/procedure/variable/constant ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD : Solution: to fix this i used x for an example. lets say you used i as your variable, then you made a procedure/function called i. this would not work because i is already used as a variable in the script, so you cannot name that as a procedure. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error 6: Identifier expected in script. Pwnaz0r : Something Is messed up with begins and ends. Count them and make sure they are right throughout the script. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD : Solution: count your begins and ends in your script, and make sure for each begin, you have an "end;" also make sure for each repeat you have an until. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ERROR 7 : 'BEGIN' expected in script. Pwnaz0r : check to make sure you have a begging at the begging of all procedures, and mainloop. Also, sometimes, when you state vars before a begin in an procedure/function, you forgot to put var in front of it.

procedure Example;
  kfjf : integer;
begin

See How it doesnt say var? This is how you would fix it.

Procedure Example;
var
  kfjf L integer;
begin

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD : solution : make sure you have a begin at the beginning of your procedure. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error 8: Invalid number of parameters in script Pwnaz0r : You Have not filled in the correct parameters for the script.

If(FindColorTolerance(x,y,65336,1,1,100,100))then

This is a common one. People forgit to include the tolerance at the end.

If(FindColorTolerance(x,y,65336,1,1,100,100,15))then

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ JAD : this is ussually caused if you put too many numbers, parenthesis and things like that in script. if you put MMouse(x,y,0,0,0,) it would probably say invalid number of parameters. so just check whats needed in the command, and if theres anything extra thats not needed. [/LEFT] Finding Color Ok Now there are various Ways To Find Color. Two Main Categories Though. With Tolerance and Without. Tolerance is just like finding a color similar to it. The higher the tolerance, the more different the color can be. MOST COMMON COLOR FINDING PROCEDURES
• FindColor
• FindColorTolerance
• FindColorSpiral
• FindColorSpiralTolerance
All do pretty much the same thing. Now All you have to do it pick a color for it to find. Use the color picker(Icon listed above in Understanding Scar) and pick a color. I cannot Show you how to do this because the screen is frozen and you can't take a screen shot but this is what should show up in the debug box after you have picked a color.

Color Picked: 16777215 at (243, 139)

That is just an example. 16777215 would be th color and (243, 139) are the coordinates. Now all you have to do is add that to a procedure.

procedure GoToColor;
begin
If(FindColor(x,y, 16777215 , 0 , 0 , 100 , 100))then 
  begin
    Writeln('Found The Color');
  end;
end;

Not very hard eh? Anyways, Colors are a really easy way to find things in scar. ANTI BAN Well this Is A Big Topic. Making your own antiban is crucial to your script. Now , you can make it simple at first, but more complex later. I think for begginers at least 8 lines(including begin and end) is good in an antiban procedure. Now here are some of the most commonly used antiban procedures.

procedure RotateEvery(mins: Integer); 


procedure RandomChatEvery(mins: Integer);



procedure RandomRClickEvery(mins: Integer); 


procedure LeaveScreenEvery(mins: Integer);


procedure HoverSkill(Skill: String; Click: Boolean); 


procedure PickUpMouseEvery(mins: Integer);



procedure AntiBan; 

Anyways, Make Your antiban procedure any name you like and put some of those in there :). Call it when you want to antiban :). Building Proggies Ok well progress reports are not hard. Here is the basic SRL Multiplayer Progress report.

procedure PlayerStats;
var
  Active: string;
  i : Integer;
begin
  Writeln('****************************************************');
  Writeln('   Name    : '+ Players[CurrentPlayer].Name);
  Writeln('   Number  : '+ IntToStr(CurrentPlayer));
  Writeln('   Worked  : '+ IntToStr (Players[CurrentPlayer].Worked)+' minutes.');
  Writeln('   Banked  : '+ IntToStr (Players[CurrentPlayer].Banked) + ' loads.');
  Writeln('   Location: '+ Players[CurrentPlayer].loc);
  Writeln('   Level   : '+ IntToStr(Players[CurrentPlayer].Integer1));
  Writeln('****************************************************');
  for i := 0 to HowManyPlayers - 1 do
  begin
    if(Players[i].Active = True)then
      Active := 'True'
    else
      Active := 'False';
   Writeln (IntToStr(i) + ' : '+Players[i].Name + ' = ' + Active + '. - Lvl: '+IntToStr(Players[i].Integer1)+
        '. - B :'+IntToStr (Players[i].Banked)+' times.'+
        ' - '+IntToStr (Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc);
   end;
  Writeln('*****************************************************');
end;

I would modify that to your likeing or change Chars/Design :) Scripting Standards Scripting Standards are one of the things good scripters use to keep their scripts neat + organized. Some scripters make their own scripting standards after awhile but there is a, what you could call, "Universal Scripting Standards Code".Basically it consists of double spacing after each begin and backspacing twice between each end. Here are some examples of Bad Scripting standards. BAD SCRIPTING STANDARDS GOOD SCRIPTING STANDARDS OR MY PERSONAL SCRIPTING STANDARDS See How the First Looks Messy And And Jumbled Up But the Latter 2 Look Neat and tidy? Anyways At the Bottom, I have attached A personal Script Standardizer. All you do is download it, open your script in it, and look at the drop down menus until you see something like "Standardize all" Functions - Creating And Understanding Ok now functions are like procedures that give you results. they can be any of the 4 types listed in vars section. Like if you wanted to see if SCAR finds a color it would be listed like this.

function DidWeFindColor : boolean;//Boolean because it results true or false;
begin
result := false;// read below
If(FindColor(x,y,(YourColor),1,1,100,100))then result := true
end;

Ok, now see how I put result := false at the beggining? Well it will stay false unless it finds the color. So its kinda easier. Then you may use that like this.

If(DidWeFindColor= true)then
  begin
    Writeln(' We Found Color!'):
  End;

You can also make other functions but you will learn they are very easy as you move along. If you don't understand how to make them now then dnt try it now. You will understand eventually. [LEFT]Maintaining And Developing A Script I DID TAKE THIS FROM MY OTHER TUTORIAL FOUND HERE http://www.villavu.com/forum/showthread.php?t=6300 How To Organize and Develop A SRL/Scar Based Script Through Neatness To Get it Done Faster/ Better ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Index
• I. Getting Started
• II. Using Basic Tools
• III. Scripting Standards
• IV. Making An Outline
• V. Orgranizing The MainLoop
• VI. Publishing A Script
• VII. Conculsion
~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Chapter One Getting Started Ok, Youre probably reading this tutorial because your scripting is messy, you have trouble finding things, or your just plain bored. This tutorial will go into an explainaton on how I like to keep my scripts organized / make an outline so I don't forget things, don't loose things, etc. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Chapter Two Using Basic Tools Well For this Tutorial all you really need are 4 things. - A Computer - - Notepad(Or any other writing Program - - Scar - - Knowledge Of Scripting - I am going to go ahead and get you to do the follow things - Create A folder on the desktops named " My Scripts " or something similar to that - - Open Up Scar - - Open Up Your Writing Program - My Example Will Be A PowerChopper ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Chapter Three Scripting Standards Well Scripting Standards are the way us scripters keep our scripting LOOK AT THE BOTTOM OF THE PAGE FOR A STANDARDIZER GOTTEN FROM HEY321 or ~~~~~~~~~~~~~~~~~~~~~~~~ http://www.villavu.com/forum/showthread.php?t=5195?t=6042 http://www.villavu.com/forum/showthread.php?t=3293?t=3997 http://www.villavu.com/forum/showthread.php?t=4676?t=5496 ^^^^^^^^^^^^^^^^^^^^^ Go To These Tutorials If you don't understand Scripting Standards. Some scripters have their own standards that they create. In my opinion, if its neat, its good enough for me. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Chapter Four Making An Outline Ok well this is where we really start the tutorial. So you have everything ready and you understand scripting standards. To start your outline, you need to know what you want to make. So at the top of your writing program, put your title/idea in Bold.

• Select RS Window
• Go to Tools –> DTM Editor…

FindDTM(DTM, x,y, x1, y1, x2, y2) // Finds A DTM in the Specified params. records Position at the vars you specify.

FindDtmIn(var  FX, FY: Integer; DTM, X1, Y1, X2, Y2: Integer) // Basically Same thing as above.

//To Click A DTM just say something like

If(FindDTMIn(x,y,(DTM Name Here),X1, Y1, X2, Y2)) then
  begin
    Mouse(x,y,0,0,true);
  end;

1. Go To Script –> PictureToStr
2. Now Click Open
3. Select Your File
4. Press OK

var
  ColorArray : array [0..5] of integer;
  ExtArray : array [0..2] of extended;
  BoolArray : Array [0..10] of boolean;
  stringarray : array [5..8] of string;

  Var
    ColorArray : array of integer;

GetArrayLength((ArrayName));

SetArrayLength((ArrayName),ArrayLenght));

procedure UpDateArray;
var
  I : integer;
  ColorArray : array of integer;
begin
If(FindColor(x,y,98347,1,1,100,100))then
  begin
    I := GetArrayLength(ColorArray);
    SetArrayLength(ColorArray, I + 1);// I + 1 so it will be 1 higher than the
                                      // previous array length.
    Colorarray[I + 1] := GetColor(x,y);
  end;
end;

RadialWalk(Color,StartRadial,EndRadial,Radius,ModX, ModY);

RadialWalk( {WhiteColor} , 0, 90, 70, 0 , 0);

procedure ClickRoad;
var
  tmpRoad : integer;
begin
tmpRoad := FindRoadColor;
RadialWalk(tmpRoad,~~~~~~);
end;

1. While In SCAR, Go TO Open
2. Click on Includes in The " Main Menu " of SCAR(where you downloaded srl)
3. go to includes –> SRL –> scripts –> Yakman's RadialWalk Helper
4. Open it
5. Press Play
6. Make sure you are logged in to RS
7. Move The Window Over to The Side, Out Of the way of the minimap
8. Press "CAPTURE FROM CLIENT" on the right hand side
9. It Should Take A Picture Of The MiniMap

[LEFT]
• AntiBan
• Undetectable
• Higly Accurate[/LEFT]

procedure findrock;
begin
If(FindColorSpiral(x,y,color,x1,y1,x2,y2))then
  begin
  If(FindColorSprial(x,y,color2,x+15, Y+15, x -15,  y - 15))then
    begin
      Writeln('Found');
    end;
  end;
end;

procedure GetPos;
var
  MyPoint : TPoint;
  xx, yy : integer;
begin
GetMouse(xx,yy);
MyPoint.X := xx;
MyPoint.Y := yy;
end;

procedure MakeATPointArray;
var
  ThePoints : TPointArray;
  XX : integer;
  YY : integer;
  I : extended;
begin
I := -1;
GetMousePos(XX,YY);
repeat
XX := XX + 1;
YY := YY + 1;
I :+ I + 1;
SetArrayLength(ThePoints, I)l
ThePoints[I].X := XX;
ThePoints[I].Y := YY;
until(i = 25);
end;

Type
  AntiBannage = record
    TalkingRatio : integer;
    MovingRatio : integer;
    MisClickRatio : integer;
    StatsBoxRatio : integer;
end;

procedure AntiBanLand;
var
  AntiBanN : AntiBannage;
begin

  ABR := 5;
  
  //--------------------------
  
  AntiBanN.TalkingRatio := 1 + random(ABR * 10);
  AntiBanN.MovingRatio := 1 + random(ABR * 5);
  AntiBanN.MisClickRatio := 1 + random(50);
  
  //--------------------------
  Case AntiBanN.TalkingRatio of
  1 : begin
       end;
  end;
  
  //--------------------------
  
  Case AntiBanN.MovingRatio of
  1 : begin
        SleepAndMoveMouse(1500+random(3000));
        ReportVars[1] := ReportVars[1] + 1;
      end;
  4 : begin
        SleepAndMoveMouse(1000+random(2000));
        ReportVars[1] := ReportVars[1] + 1;
       end;
  8 : begin
        PickUpMouse;
        ReportVars[1] := ReportVars[1] + 1;
      end;
  10 : begin
         AlmostLogOut;
         ReportVars[1] := ReportVars[1] + 1;
       end;
  end;

  //--------------------------

  Case AntiBanN.MisClickRatio of
  1 : begin
        GameTab(6);
        GameTab(7);
        ReportVars[1] := ReportVars[1] + 1;
      end;
  end;
  
  //--------------------------
  
  HoverEvery(15 + random(10),'Magic');
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 498;
Label1.Top := 278;
Label1.Width := 32;
Label1.Height := 13;
Label1.Caption := 'Label1';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 296;
Button1.Top := 189;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Button1';
Button1.TabOrder := 8;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 48;
CheckBox1.Top := 46;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'CheckBox1';
CheckBox1.TabOrder := 9;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 34;
GroupBox1.Top := 215;
GroupBox1.Width := 185;
GroupBox1.Height := 105;
GroupBox1.Caption := 'GroupBox1';
GroupBox1.TabOrder := 10;
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 323;
Memo1.Top := 44;
Memo1.Width := 185;
Memo1.Height := 89;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 11;

Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 323;
Memo1.Top := 44;
Memo1.Width := 185;
Memo1.Height := 89;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 11;

Memo1 := TMemo.Create(frmDesign);

Memo1.Parent := frmDesign;

Memo1.Left := 323;
Memo1.Top := 44;
Memo1.Width := 185;
Memo1.Height := 89;

Memo1.Lines.Add('Memo1');

frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 96;

//------------------

Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 498;
Label1.Top := 278;
Label1.Width := 32;
Label1.Height := 13;
Label1.Caption := 'Label1';

//------------------

Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 296;
Button1.Top := 189;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Button1';
Button1.TabOrder := 8;

//------------------

CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 48;
CheckBox1.Top := 46;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'CheckBox1';
CheckBox1.TabOrder := 9;

//------------------

GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 34;
GroupBox1.Top := 215;
GroupBox1.Width := 185;
GroupBox1.Height := 105;
GroupBox1.Caption := 'GroupBox1';
GroupBox1.TabOrder := 10;

//------------------

Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 323;
Memo1.Top := 44;
Memo1.Width := 185;
Memo1.Height := 89;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 11;