Tom's RSS Pro: Tutorial V4 (Design) In Depth

[ThomasGrant]

This is going to be an extensive guide into everything I have learnt so far.
Covering all the previous tutorials.
So I may be repeating myself.
But repetition is a great way to keep things in your mind.

Tools
RSS Pro.
Notepad++

link:://notepad-plus-plus.org/release/5.7
Delphi 7 or 10 (Optional)

I use notepad++ for all my coding.
It is so easy to use.
And great for copy and pasting.

I have also added a picture of what the final bot will look like.

So I hope some of the members get to join in.
And learn something along the way.

Once this is done.
I will be delving into some really good code.
So stick around.



[attachimg=#]

[attachimg=#]

[ThomasGrant]

Part 1: The form.

The evolution of invention.

From thought.

To form.

To function.

Not the form again...
-------------------------

In this lesson...
I wana show you how to open up a new form.

So lets get cracking.

Here it is in pictures.




















Unit 1 code.

Code Select Expand

uses
 Classes, Graphics, Controls, Forms, Dialogs, Unit2, Unit3;

var
 MainForm: TForm2;                                      
begin
 MainForm := TForm2.Create(Application);
 MainForm.Show;
end;

Unit 2 code.

Code Select Expand

{$FORM TForm2, Unit2.sfm}

uses
 Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

procedure Button1Click(Sender: TObject);
var
 MainForm3: TForm3;  
begin
 MainForm3 := TForm3.Create(Application);
 MainForm3.Show;
end;  

begin
end;  

That was so easy...

[ThomasGrant]

Well, that was lesson 1.
You have no idea how hard it was trying to figure this stuff out.
When you have no support.
No tutorials.

I had to find all this sort of stuff on my own.
Much of what I tried, did not work.
But I am very persistent.

All my question. I find answers to in google.
And youtube.

[VLS]

Wow Thomas, just downloaded Notepad++

Great tool! (And it has BASIC support) 

[ThomasGrant]

Wow Thomas, just downloaded Notepad++

Great tool! (And it has BASIC support)  

It does?
Can't find it in the language menu.

Notepad++ is very good.
Best tool I have found.
For writing anything.

Fast.
Easy.

And it is FREE...

[ThomasGrant]

Here is a video of my bot in Action.
And what I have managed to do so far.

link:://:.thomasrgrant.com/stuff/bt4/bt4_controller.swf

[ThomasGrant]

Thats odd.
Now it is just a green screen.
Hmmm..
Right Click and save target as.
link:://:.thomasrgrant.com/stuff/bt4/bt4.mp4

[ThomasGrant]

The Design.

Ok, Now onto the design of the bot.

So, we have these items.

3 units.
2 forms.

1 menu

OpenDialog
and
SaveDialog on form 2

SaveDialog on form 3

Buttons
TLables

Bevel edges
TCheckBoxes

4 memos on form 2
1 memo on form 3

Tedits

And a partridge in a pear tree...

(I have included the zip file)

[ThomasGrant]

Here is the code for it all.
Or the code for what I uploaded.

Project1.ssproj

Code Select Expand

[Files]
File1=Unit1.psc
Language1=0
File2=Unit2.psc
Language2=0
File3=Unit3.psc
Language3=0
FileCount=3
MainUnit=Unit1

Unit1.psc

Code Select Expand

uses
  Classes, Graphics, Controls, Forms, Dialogs, Unit2, Unit3;

var
  MainForm: TForm2;
begin
  MainForm := TForm2.Create(Application);
  MainForm.Show;
end;

Unit2.psc

Code Select Expand

{$FORM TForm2, Unit2.sfm}

uses
  Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
  StdCtrls, Menus;

procedure Form2Activate(Sender: TObject);
begin
 
end;

procedure Form2Close(Sender: TObject; var Action: TCloseAction);
begin

end;

procedure Button_ExitClick(Sender: TObject);
begin     
Close();
end;

procedure MainMenu1_OutPutWinClick(Sender: TObject);
begin
MainForm3 := TForm3.Create(Application);
    MainForm3.Show;
end;

begin
end;


Unit2.sfm

Code Select Expand

object Form2: TScriptForm
  Left = 5
  Top = 5
  BorderStyle = bsSingle
  Caption = 'Toms Bot: V4'
  ClientHeight = 519
  ClientWidth = 534
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = [fsBold]
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesigned
  SaveProps.Strings = (
    'Visible=False'
    'AutoSize=False'
    'BorderStyle=bsSingle')
  SaveEvents.Strings = (
    'Self.OnActivate=Form2Activate'
    'Self.OnClose=Form2Close'
    'Button_Exit.OnClick=Button_ExitClick'
    'MainMenu1_OutPutWin.OnClick=MainMenu1_OutPutWinClick')
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 0
    Width = 521
    Height = 513
  end
  object Bevel2: TBevel
    Left = 80
    Top = 8
    Width = 97
    Height = 25
  end
  object Bevel3: TBevel
    Left = 80
    Top = 40
    Width = 97
    Height = 97
  end
  object Bevel4: TBevel
    Left = 80
    Top = 144
    Width = 97
    Height = 97
  end
  object Bevel5: TBevel
    Left = 80
    Top = 248
    Width = 97
    Height = 97
  end
  object Bevel6: TBevel
    Left = 184
    Top = 8
    Width = 145
    Height = 73
  end
  object Bevel7: TBevel
    Left = 184
    Top = 88
    Width = 145
    Height = 193
  end
  object Bevel8: TBevel
    Left = 184
    Top = 288
    Width = 145
    Height = 57
  end
  object Bevel9: TBevel
    Left = 336
    Top = 8
    Width = 177
    Height = 337
  end
  object Bevel10: TBevel
    Left = 80
    Top = 352
    Width = 249
    Height = 41
    Style = bsRaised
  end
  object Bevel11: TBevel
    Left = 336
    Top = 352
    Width = 177
    Height = 41
  end
  object Bevel12: TBevel
    Left = 8
    Top = 8
    Width = 65
    Height = 337
  end
  object LabelSpins: TLabel
    Left = 264
    Top = 16
    Width = 33
    Height = 14
    Caption = 'Spins'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelChip: TLabel
    Left = 264
    Top = 48
    Width = 56
    Height = 14
    Caption = 'Chip Unit'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelBalance: TLabel
    Left = 88
    Top = 352
    Width = 46
    Height = 14
    Caption = 'Balance'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelProfit: TLabel
    Left = 168
    Top = 352
    Width = 35
    Height = 14
    Caption = 'Profit'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabeStopLoss: TLabel
    Left = 248
    Top = 352
    Width = 61
    Height = 14
    Caption = 'Stop Loss'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Test1: TButton
    Left = 256
    Top = 488
    Width = 97
    Height = 25
    Caption = 'Test'
    TabOrder = 0
  end
  object Test2: TButton
    Left = 360
    Top = 488
    Width = 81
    Height = 25
    Caption = 'Test2'
    TabOrder = 1
  end
  object Button_Exit: TButton
    Left = 448
    Top = 488
    Width = 73
    Height = 25
    Caption = 'Exit'
    TabOrder = 2
  end
  object Button_Auto: TButton
    Left = 424
    Top = 352
    Width = 89
    Height = 41
    Caption = 'Auto'
    TabOrder = 3
  end
  object Button_Manual: TButton
    Left = 336
    Top = 352
    Width = 81
    Height = 41
    Caption = 'Manual'
    TabOrder = 4
  end
  object Button_UnDo: TButton
    Left = 8
    Top = 400
    Width = 65
    Height = 33
    Caption = 'UnDo'
    TabOrder = 5
  end
  object Button_Stop: TButton
    Left = 273
    Top = 288
    Width = 56
    Height = 57
    Caption = 'Stop'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object Button_Start: TButton
    Left = 184
    Top = 312
    Width = 89
    Height = 33
    Caption = 'Start to Bet'
    TabOrder = 7
  end
  object Button_Collect: TButton
    Left = 185
    Top = 288
    Width = 88
    Height = 25
    Caption = 'Collect Data'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
  end
  object Button_ModEC: TButton
    Left = 184
    Top = 112
    Width = 41
    Height = 17
    Caption = 'Mod'
    TabOrder = 9
  end
  object Button_ModDC: TButton
    Left = 336
    Top = 32
    Width = 57
    Height = 17
    Caption = 'Mod DC'
    TabOrder = 10
  end
  object Button0: TButton
    Left = 80
    Top = 8
    Width = 97
    Height = 25
    Caption = '0'
    TabOrder = 11
  end
  object Button1: TButton
    Left = 80
    Top = 40
    Width = 33
    Height = 25
    Caption = '1'
    TabOrder = 12
  end
  object Button2: TButton
    Left = 112
    Top = 40
    Width = 33
    Height = 25
    Caption = '2'
    TabOrder = 13
  end
  object Button3: TButton
    Left = 144
    Top = 40
    Width = 33
    Height = 25
    Caption = '3'
    TabOrder = 14
  end
  object Button4: TButton
    Left = 80
    Top = 64
    Width = 33
    Height = 25
    Caption = '4'
    TabOrder = 15
  end
  object Button5: TButton
    Left = 112
    Top = 64
    Width = 33
    Height = 25
    Caption = '5'
    TabOrder = 16
  end
  object Button6: TButton
    Left = 144
    Top = 64
    Width = 33
    Height = 25
    Caption = '6'
    TabOrder = 17
  end
  object Button7: TButton
    Left = 80
    Top = 88
    Width = 33
    Height = 25
    Caption = '7'
    TabOrder = 18
  end
  object Button8: TButton
    Left = 112
    Top = 88
    Width = 33
    Height = 25
    Caption = '8'
    TabOrder = 19
  end
  object Button9: TButton
    Left = 144
    Top = 88
    Width = 33
    Height = 25
    Caption = '9'
    TabOrder = 20
  end
  object Button10: TButton
    Left = 80
    Top = 112
    Width = 33
    Height = 25
    Caption = '10'
    TabOrder = 21
  end
  object Button11: TButton
    Left = 112
    Top = 112
    Width = 33
    Height = 25
    Caption = '11'
    TabOrder = 22
  end
  object Button12: TButton
    Left = 144
    Top = 112
    Width = 33
    Height = 25
    Caption = '12'
    TabOrder = 23
  end
  object Button13: TButton
    Left = 80
    Top = 144
    Width = 33
    Height = 25
    Caption = '13'
    TabOrder = 24
  end
  object Button14: TButton
    Left = 112
    Top = 144
    Width = 33
    Height = 25
    Caption = '14'
    TabOrder = 25
  end
  object Button15: TButton
    Left = 144
    Top = 144
    Width = 33
    Height = 25
    Caption = '15'
    TabOrder = 26
  end
  object Button16: TButton
    Left = 80
    Top = 168
    Width = 33
    Height = 25
    Caption = '16'
    TabOrder = 27
  end
  object Button17: TButton
    Left = 112
    Top = 168
    Width = 33
    Height = 25
    Caption = '17'
    TabOrder = 28
  end
  object Button18: TButton
    Left = 144
    Top = 168
    Width = 33
    Height = 25
    Caption = '18'
    TabOrder = 29
  end
  object Button19: TButton
    Left = 80
    Top = 192
    Width = 33
    Height = 25
    Caption = '19'
    TabOrder = 30
  end
  object Button20: TButton
    Left = 112
    Top = 192
    Width = 33
    Height = 25
    Caption = '20'
    TabOrder = 31
  end
  object Button21: TButton
    Left = 144
    Top = 192
    Width = 33
    Height = 25
    Caption = '21'
    TabOrder = 32
  end
  object Button22: TButton
    Left = 80
    Top = 216
    Width = 33
    Height = 25
    Caption = '22'
    TabOrder = 33
  end
  object Button23: TButton
    Left = 112
    Top = 216
    Width = 33
    Height = 25
    Caption = '23'
    TabOrder = 34
  end
  object Button24: TButton
    Left = 144
    Top = 216
    Width = 33
    Height = 25
    Caption = '24'
    TabOrder = 35
  end
  object Button25: TButton
    Left = 80
    Top = 248
    Width = 33
    Height = 25
    Caption = '25'
    TabOrder = 36
  end
  object Button26: TButton
    Left = 112
    Top = 248
    Width = 33
    Height = 25
    Caption = '26'
    TabOrder = 37
  end
  object Button27: TButton
    Left = 144
    Top = 248
    Width = 33
    Height = 25
    Caption = '27'
    TabOrder = 38
  end
  object Button28: TButton
    Left = 80
    Top = 272
    Width = 33
    Height = 25
    Caption = '28'
    TabOrder = 39
  end
  object Button29: TButton
    Left = 112
    Top = 272
    Width = 33
    Height = 25
    Caption = '29'
    TabOrder = 40
  end
  object Button30: TButton
    Left = 144
    Top = 272
    Width = 33
    Height = 25
    Caption = '30'
    TabOrder = 41
  end
  object Button31: TButton
    Left = 80
    Top = 296
    Width = 33
    Height = 25
    Caption = '31'
    TabOrder = 42
  end
  object Button32: TButton
    Left = 112
    Top = 296
    Width = 33
    Height = 25
    Caption = '32'
    TabOrder = 43
  end
  object Button33: TButton
    Left = 144
    Top = 296
    Width = 33
    Height = 25
    Caption = '33'
    TabOrder = 44
  end
  object Button34: TButton
    Left = 80
    Top = 320
    Width = 33
    Height = 25
    Caption = '34'
    TabOrder = 45
  end
  object Button35: TButton
    Left = 112
    Top = 320
    Width = 33
    Height = 25
    Caption = '35'
    TabOrder = 46
  end
  object Button36: TButton
    Left = 144
    Top = 320
    Width = 33
    Height = 25
    Caption = '36'
    TabOrder = 47
  end
  object CheckBoxRed: TCheckBox
    Left = 184
    Top = 128
    Width = 41
    Height = 25
    Caption = 'Red'
    TabOrder = 48
  end
  object CheckBoxBlack: TCheckBox
    Left = 184
    Top = 152
    Width = 49
    Height = 25
    Caption = 'Black'
    TabOrder = 49
  end
  object CheckBoxLow: TCheckBox
    Left = 184
    Top = 176
    Width = 41
    Height = 25
    Caption = 'Low'
    TabOrder = 50
  end
  object CheckBoxHigh: TCheckBox
    Left = 184
    Top = 200
    Width = 41
    Height = 25
    Caption = 'High'
    TabOrder = 51
  end
  object CheckBoxOdd: TCheckBox
    Left = 184
    Top = 224
    Width = 41
    Height = 25
    Caption = 'Odd'
    TabOrder = 52
  end
  object CheckBoxEven: TCheckBox
    Left = 184
    Top = 248
    Width = 49
    Height = 25
    Caption = 'Even'
    TabOrder = 53
  end
  object CheckBoxDL: TCheckBox
    Left = 336
    Top = 48
    Width = 65
    Height = 25
    Caption = 'Doz Low'
    TabOrder = 54
  end
  object CheckBoxDM: TCheckBox
    Left = 336
    Top = 72
    Width = 65
    Height = 25
    Caption = 'Doz Med'
    TabOrder = 55
  end
  object CheckBoxDH: TCheckBox
    Left = 336
    Top = 96
    Width = 65
    Height = 25
    Caption = 'Doz High'
    TabOrder = 56
  end
  object CheckBoxDLM: TCheckBox
    Left = 336
    Top = 120
    Width = 73
    Height = 25
    Caption = 'Doz L+M'
    TabOrder = 57
  end
  object CheckBoxDLH: TCheckBox
    Left = 336
    Top = 144
    Width = 73
    Height = 25
    Caption = 'Doz L+H'
    TabOrder = 58
  end
  object CheckBoxDMH: TCheckBox
    Left = 336
    Top = 168
    Width = 73
    Height = 25
    Caption = 'Doz M+H'
    TabOrder = 59
  end
  object CheckBoxC1: TCheckBox
    Left = 336
    Top = 192
    Width = 65
    Height = 25
    Caption = 'Col 1'
    TabOrder = 60
  end
  object CheckBoxC2: TCheckBox
    Left = 336
    Top = 216
    Width = 65
    Height = 25
    Caption = 'Col 2'
    TabOrder = 61
  end
  object CheckBoxC3: TCheckBox
    Left = 336
    Top = 240
    Width = 65
    Height = 25
    Caption = 'Col 3'
    TabOrder = 62
  end
  object CheckBoxC12: TCheckBox
    Left = 336
    Top = 264
    Width = 65
    Height = 25
    Caption = 'Col 1+2'
    TabOrder = 63
  end
  object CheckBoxC13: TCheckBox
    Left = 336
    Top = 288
    Width = 65
    Height = 25
    Caption = 'Col 1+3'
    TabOrder = 64
  end
  object CheckBoxC23: TCheckBox
    Left = 336
    Top = 312
    Width = 65
    Height = 25
    Caption = 'Col 2+3'
    TabOrder = 65
  end
  object EditRedMax: TEdit
    Left = 232
    Top = 129
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 66
    Text = '3'
  end
  object EditBlackMax: TEdit
    Left = 232
    Top = 153
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 67
    Text = '3'
  end
  object EditLowMax: TEdit
    Left = 232
    Top = 177
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 68
    Text = '3'
  end
  object EditHighMax: TEdit
    Left = 232
    Top = 201
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 69
    Text = '3'
  end
  object EditOddMax: TEdit
    Left = 232
    Top = 225
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 70
    Text = '3'
  end
  object EditEvenMax: TEdit
    Left = 232
    Top = 249
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 71
    Text = '3'
  end
  object EditDLM: TEdit
    Left = 408
    Top = 49
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 72
    Text = '3'
  end
  object EditDMM: TEdit
    Left = 408
    Top = 73
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 73
    Text = '3'
  end
  object EditDHM: TEdit
    Left = 408
    Top = 97
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 74
    Text = '3'
  end
  object EditDLMM: TEdit
    Left = 408
    Top = 121
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 75
    Text = '3'
  end
  object EditDLHM: TEdit
    Left = 408
    Top = 145
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 76
    Text = '3'
  end
  object EditDMHM: TEdit
    Left = 408
    Top = 169
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 77
    Text = '3'
  end
  object EditC1M: TEdit
    Left = 408
    Top = 193
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 78
    Text = '3'
  end
  object EditC2M: TEdit
    Left = 408
    Top = 217
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 79
    Text = '3'
  end
  object EditC3M: TEdit
    Left = 408
    Top = 241
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 80
    Text = '3'
  end
  object EditC12M: TEdit
    Left = 408
    Top = 265
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 81
    Text = '3'
  end
  object EditC13M: TEdit
    Left = 408
    Top = 289
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 82
    Text = '3'
  end
  object Edit23M: TEdit
    Left = 408
    Top = 313
    Width = 41
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 83
    Text = '3'
  end
  object EditRedUnit: TEdit
    Left = 281
    Top = 129
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 84
    Text = '7'
  end
  object EditBlackUnit: TEdit
    Left = 281
    Top = 153
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 85
    Text = '1'
  end
  object EditLowUnit: TEdit
    Left = 281
    Top = 177
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 86
    Text = '1'
  end
  object EditHighUnit: TEdit
    Left = 281
    Top = 201
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 87
    Text = '1'
  end
  object EditOddUnit: TEdit
    Left = 281
    Top = 225
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 88
    Text = '1'
  end
  object EditEvenUnit: TEdit
    Left = 281
    Top = 249
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 89
    Text = '1'
  end
  object EditDLU: TEdit
    Left = 465
    Top = 49
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 90
    Text = '1'
  end
  object EditDMU: TEdit
    Left = 465
    Top = 73
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 91
    Text = '1'
  end
  object EditDHU: TEdit
    Left = 465
    Top = 97
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 92
    Text = '1'
  end
  object EditDLMU: TEdit
    Left = 465
    Top = 121
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 93
    Text = '1'
  end
  object EditDLHU: TEdit
    Left = 465
    Top = 145
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 94
    Text = '1'
  end
  object EditDMHU: TEdit
    Left = 465
    Top = 169
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 95
    Text = '1'
  end
  object EditC1U: TEdit
    Left = 465
    Top = 193
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 96
    Text = '1'
  end
  object EditC2U: TEdit
    Left = 465
    Top = 217
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 97
    Text = '1'
  end
  object EditC3U: TEdit
    Left = 465
    Top = 241
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 98
    Text = '1'
  end
  object EditC12U: TEdit
    Left = 465
    Top = 265
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 99
    Text = '1'
  end
  object EditC13U: TEdit
    Left = 465
    Top = 289
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 100
    Text = '1'
  end
  object EditC23U: TEdit
    Left = 465
    Top = 313
    Width = 40
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 101
    Text = '1'
  end
  object MemoBN: TMemo
    Left = 16
    Top = 16
    Width = 17
    Height = 321
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 102
  end
  object Memo0N: TMemo
    Left = 32
    Top = 16
    Width = 17
    Height = 321
    Alignment = taCenter
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 103
  end
  object MemoRN: TMemo
    Left = 48
    Top = 16
    Width = 17
    Height = 321
    Alignment = taRightJustify
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 104
  end
  object MemoResults: TMemo
    Left = 80
    Top = 400
    Width = 433
    Height = 81
    BevelKind = bkTile
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 105
  end
  object EditSpins: TEdit
    Left = 193
    Top = 17
    Width = 64
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 106
    Text = '20'
  end
  object EditChip: TEdit
    Left = 193
    Top = 49
    Width = 64
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 107
    Text = '1'
  end
  object PanelEC: TPanel
    Left = 184
    Top = 88
    Width = 145
    Height = 17
    Caption = 'Even Chances'
    TabOrder = 108
    object PanelDC: TPanel
      Left = 336
      Top = 8
      Width = 177
      Height = 17
      Caption = 'Dozens - Columns'
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 336
    Top = 8
    Width = 177
    Height = 17
    Caption = 'Dozens - Columns'
    TabOrder = 109
  end
  object PanelSpins: TPanel
    Left = 8
    Top = 352
    Width = 65
    Height = 17
    Caption = 'Spins'
    TabOrder = 110
  end
  object PanelSpinsShow: TPanel
    Left = 8
    Top = 368
    Width = 65
    Height = 25
    TabOrder = 111
  end
  object EditBalance: TEdit
    Left = 88
    Top = 369
    Width = 73
    Height = 21
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 112
    Text = '500'
  end
  object EditProfit: TEdit
    Left = 168
    Top = 369
    Width = 73
    Height = 21
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 113
    Text = '10'
  end
  object EditStopLoss: TEdit
    Left = 248
    Top = 369
    Width = 73
    Height = 21
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 114
    Text = '200'
  end
  object EditTest1: TEdit
    Left = 16
    Top = 489
    Width = 233
    Height = 21
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 115
    Text = 'c:\rss-data\setnew'
  end
  object PanelECMax: TPanel
    Left = 232
    Top = 112
    Width = 41
    Height = 17
    Caption = 'Max'
    TabOrder = 116
  end
  object PanelECU: TPanel
    Left = 280
    Top = 112
    Width = 41
    Height = 17
    Caption = 'Unit'
    TabOrder = 117
  end
  object PanelDCM: TPanel
    Left = 408
    Top = 32
    Width = 41
    Height = 17
    Caption = 'Max'
    TabOrder = 118
  end
  object PanelDCU: TPanel
    Left = 464
    Top = 32
    Width = 41
    Height = 17
    Caption = 'Unit'
    TabOrder = 119
    object PanelResults: TPanel
      Left = 8
      Top = 440
      Width = 65
      Height = 41
      Caption = 'Results'
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 440
    Width = 65
    Height = 41
    Caption = 'Results'
    TabOrder = 120
  end
  object SaveDialog1: TSaveDialog
    Left = 504
  end
  object OpenDialog1: TOpenDialog
    Left = 472
  end
  object MainMenu1: TMainMenu
    object MainMenu1_Files: TMenuItem
      Caption = '&Files...'
      object MainMenu1_Load: TMenuItem
        Caption = 'Load Settings...'
      end
      object MainMenu1_Save: TMenuItem
        Caption = 'Save Settings...'
      end
      object MainMenu1_SaveRes: TMenuItem
        Caption = 'Save Results...'
      end
    end
    object MainMenu1_Casinos: TMenuItem
      Caption = '&Casino List...'
      object MainMenu1_EuroGrand: TMenuItem
        Caption = 'EuroGrand'
      end
      object MainMenu1_Bet365: TMenuItem
        Caption = 'Bet365'
      end
      object MainMenu1_Tropez: TMenuItem
        Caption = 'Casino Tropez'
      end
      object MainMenu1_Mapau: TMenuItem
        Caption = 'Mapau'
      end
      object MainMenu1_21Nova: TMenuItem
        Caption = '21Nova Casino'
      end
      object MainMenu1_William: TMenuItem
        Caption = 'William Hill'
      end
    end
    object MainMenu1_ChipUnits: TMenuItem
      Caption = 'C&hip Units...'
      object MainMenu1_10c: TMenuItem
        Caption = '1. = 0.10, 0.50, 1, 5, 10, 25, 100'
      end
      object MainMenu1_1D: TMenuItem
        Caption = '2. = 1, 5, 10, 25, 100, 500, 1000'
      end
      object MainMenu1_25c: TMenuItem
        Caption = '3. = 0.25, 1, 5, 10, 25, 100, 500'
      end
      object MainMenu1_1c: TMenuItem
        Caption = '4. = 0.01, 0.10, 1, 5, 10, 25, 100'
      end
      object MainMenu1_05: TMenuItem
        Caption = '5. = 0.50, 1, 5, 10, 25, 100, 500'
      end
      object MainMenu1_Custom: TMenuItem
        Caption = 'Custom'
        object MainMenu1_Chip1: TMenuItem
          Caption = 'Chip1'
        end
        object MainMenu1_Chip2: TMenuItem
          Caption = 'Chip2'
        end
        object MainMenu1_Chip3: TMenuItem
          Caption = 'Chip3'
        end
        object MainMenu1_Chip4: TMenuItem
          Caption = 'Chip4'
        end
        object MainMenu1_Chip5: TMenuItem
          Caption = 'Chip5'
        end
        object MainMenu1_Chip6: TMenuItem
          Caption = 'Chip6'
        end
        object MainMenu1_Chip7: TMenuItem
          Caption = 'Chip7'
        end
      end
    end
    object MainMenu1_Undo: TMenuItem
      Caption = '&Undo...'
      object MainMenu1_UndoLast: TMenuItem
        Caption = 'Undo Last...'
      end
    end
    object MainMenu1_Options: TMenuItem
      Caption = '&Options...'
      object MainMenu1_Man: TMenuItem
        Caption = 'Manual Mode...'
      end
      object MainMenu1_CasMode: TMenuItem
        Caption = 'Casino Mode..'
      end
    end
    object MainMenu1_Results: TMenuItem
      Caption = '&Results...'
      object MainMenu1_OutPutWin: TMenuItem
        Caption = 'Show Output...'
      end
    end
    object MainMenu1_Currency: TMenuItem
      Caption = 'Curr&ency...'
      object MainMenu1_Dollar: TMenuItem
        Caption = '$ Dollars'
      end
      object MainMenu1_Euro: TMenuItem
        Caption = #8364' Euro'
      end
      object MainMenu1_Pound: TMenuItem
        Caption = #163' Pound'
      end
    end
    object MainMenu1_About: TMenuItem
      Caption = '&About...'
      object MainMenu1_AboutV4: TMenuItem
        Caption = 'About Toms Bot: V4'
      end
    end
  end
end


Unit3.psc

Code Select Expand

{$FORM TForm3, Unit3.sfm}

uses
  Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
  StdCtrls;

  var F : Text;
    S : String; 
var i;

procedure close_me;
begin
    if Self.Top<0 then Self.Top:=0;
    if Self.Left<0 then Self.Left:=0;
    AssignFile(F,'c:\rss-data\reswinpos');
    Rewrite(F);             
    Writeln(F,Self.Top);
    Writeln(F,Self.Left);
    CloseFile(F);
end;

procedure load_winpos;
begin
    AssignFile(F,'c:\rss-data\reswinpos');{If no file exist. Then you will get an error message}
    Reset(F);{open the file for reading}
    i := 0;
    while not eof(F) do {loop that will repeat until the end of file will be not found}
    begin
        S:=ReadLn(F); {read the first line into "s" variable}
        if i=0 then Self.Top:=s;
        if i=1 then Self.Left:=s;
        i := i+1;
    end;
    CloseFile(F);//close the file
end;

procedure Form3Activate(Sender: TObject);
begin
    load_winpos;
end;

procedure Form3Close(Sender: TObject; var Action: TCloseAction);
begin
    close();
end;

procedure Button_SaveClick(Sender: TObject);
begin

end;

procedure Button_ExitClick(Sender: TObject);
begin

end;

begin
end;


Unit3.sfm

Code Select Expand

object Form3: TScriptForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Toms Bot: V4 - Results'
  ClientHeight = 401
  ClientWidth = 570
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poDesigned
  SaveProps.Strings = (
    'Visible=False'
    'AutoSize=True'
    'BorderStyle=bsSingle')
  SaveEvents.Strings = (
    'Self.OnActivate=Form3Activate'
    'Self.OnClose=Form3Close'
    'Button_Save.OnClick=Button_SaveClick'
    'Button_Exit.OnClick=Button_ExitClick')
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 553
    Height = 385
  end
  object Bevel2: TBevel
    Left = 8
    Top = 8
    Width = 545
    Height = 337
  end
  object MemoResAll: TMemo
    Left = 16
    Top = 16
    Width = 529
    Height = 321
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Button_Save: TButton
    Left = 8
    Top = 352
    Width = 433
    Height = 33
    Caption = 'Save Output to file...'
    TabOrder = 1
  end
  object Button_Exit: TButton
    Left = 448
    Top = 352
    Width = 105
    Height = 33
    Caption = 'Exit'
    TabOrder = 0
  end
  object SaveDialog1: TSaveDialog
    Left = 536
    Top = 8
  end
end


[ThomasGrant]

Well, that's the design part.
Fairly straight forward.
Just read the previous tutorials if you get stuck.

Onto the meat and potatoes.

The Code.

[ThomasGrant]

Before I get onto the code.
Here is the bot with all the key procedures for all objects.
Now, the procedure may not do anything.
But you got to em.
In order for that part of the bot to work.
For instance.
The "Stop" button.
[attachimg=4]

Code Select Expand

procedure Button_StopClick(Sender: TObject);
begin
 
end;
Pressing wont do anything.
So we are going to add something to it.
In order to get it to do something.

We have all the ingredients.
We just need the filling.