.. Look in line 64.
SCAR Code:
CheckBox7 : TCheckBox; //62
Button1 : TButton; //63
: TLabel; //64
SaveDialog1 : TSaveDialog; //65
you have no variable there in line 64. actually you don't even need that line lol.
also in line 74:
SCAR Code:
frmDesign.Height := 357;//73
frmDesign.Caption := //74
frmDesign.Color := clBtnFace; //75
there is nothing entered for the caption. this will give you an error.
EDIT:
there were a still few things off that i found. i fixed some stuff and i hope this helps you a little =]
SCAR Code:
{==============================================================================}
{ Auto Talker - Merchanter - Buyer - Seller }
{ Created by IP-Drowner }
{------------------------------------------------------------------------------}
{ Uses SRL 4 Functions }
{ Instructions: }
{ 1) Read Function Key Support below. }
{ 2) Setup the Form and then press Submit }
{ 3) End script by pressing F10. }
{ }
{ Function Key Support: }
{ F2 - Types First Sentence }
{ F3 - Types Second Sentence }
{ F4 - Types Third Sentence }
{ F5 - Types Fourth Sentence }
{ F6 - Types Fifth Sentence }
{ F7 - Types Sixth Sentence }
{ F8 - Types Seventh Sentence }
{ F10 - Stops running this script. }
{------------------------------------------------------------------------------}
program Auto_Talker_Merchanter_Buyer_Seller_Made_By_IPDrowner;
{----Include Files----}
{.include SRL\SRL.scar}
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
Edit : array [1..7] of TEdit;
ComboBox3 : TComboBox;
ComboBox4 : TComboBox;
ComboBox5 : TComboBox;
ComboBox6 : TComboBox;
ComboBox7 : TComboBox;
ComboBox8 : TComboBox;
ComboBox9 : TComboBox;
ComboBox10 : TComboBox;
ComboBox11 : TComboBox;
ComboBox12 : TComboBox;
ComboBox13 : TComboBox;
ComboBox14 : TComboBox;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
CheckBox3 : TCheckBox;
CheckBox4 : TCheckBox;
CheckBox5 : TCheckBox;
CheckBox6 : TCheckBox;
CheckBox7 : TCheckBox;
Button1 : TButton;
SaveDialog1 : TSaveDialog;
OpenDialog1 : TOpenDialog;
Sen : array [1..7] of string;
i : integer;
procedure OpenIt(Sender :TObject);
begin
OpenDialog1 := TOpenDialog.Create(frmDesign);
OpenDialog1.Execute;
end;
procedure SaveIt(Sender: TObject);
begin
SaveDialog1 := TSaveDialog.Create(frmDesign);
SaveDialog1.Execute;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 671;
frmDesign.Height := 357;
frmDesign.Caption := '';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 8;
Label1.Top := 24;
Label1.Width := 74;
Label1.Height := 16;
Label1.Caption := 'Sentence(s):';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -13;
Label1.Font.Name := 'Arial';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 456;
Label2.Top := 24;
Label2.Width := 56;
Label2.Height := 16;
Label2.Caption := 'Colour(s):';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -13;
Label2.Font.Name := 'Arial';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 552;
Label3.Top := 24;
Label3.Width := 52;
Label3.Height := 16;
Label3.Caption := 'Effect(s):';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -13;
Label3.Font.Name := 'Arial';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 624;
Label4.Top := 24;
Label4.Width := 27;
Label4.Height := 16;
Label4.Caption := 'Use:';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -13;
Label4.Font.Name := 'Arial';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 56;
Label5.Top := 288;
Label5.Width := 129;
Label5.Height := 16;
Label5.Caption := 'Save Custom Settings';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -13;
Label5.Font.Name := 'Arial';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label5.OnClick := @SaveIt;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 248;
Label6.Top := 288;
Label6.Width := 122;
Label6.Height := 16;
Label6.Caption := 'Open Saved Settings';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -13;
Label6.Font.Name := 'Arial';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label6.OnClick := @OpenIt;
Edit[2] := TEdit.Create(frmDesign);
Edit[2].Parent := frmDesign;
Edit[2].Left := 8;
Edit[2].Top := 48;
Edit[2].Width := 441;
Edit[2].Height := 21;
Edit[2].TabOrder := 8;
Edit[2].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 456;
ComboBox1.Top := 48;
ComboBox1.Width := 89;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 9;
ComboBox1.Text := 'ComboBox1';
ComboBox1.Items.Add('Yellow (Normal Colour)');
ComboBox1.Items.Add('Flash1');
ComboBox1.Items.Add('Flash2');
ComboBox1.Items.Add('Flash3');
ComboBox1.Items.Add('Glow1');
ComboBox1.Items.Add('Glow2');
ComboBox1.Items.Add('Glow3');
ComboBox1.Items.Add('Black');
ComboBox1.Items.Add('Blue');
ComboBox1.Items.Add('Cyan');
ComboBox1.Items.Add('Dark red');
ComboBox1.Items.Add('Green1');
ComboBox1.Items.Add('Green2');
ComboBox1.Items.Add('Green3');
ComboBox1.Items.Add('Green');
ComboBox1.Items.Add('Light Red');
ComboBox1.Items.Add('Magenta');
ComboBox1.Items.Add('Orange1');
ComboBox1.Items.Add('Orange2');
ComboBox1.Items.Add('Orange3');
ComboBox1.Items.Add('Orange');
ComboBox1.Items.Add('Random, flashing text');
ComboBox1.Items.Add('Red');
ComboBox1.Items.Add('White');
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 552;
ComboBox2.Top := 48;
ComboBox2.Width := 65;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 10;
ComboBox2.Text := 'ComboBox2';
ComboBox2.Items.Add('Wave');
ComboBox2.Items.Add('Wave2');
ComboBox2.Items.Add('Scroll');
ComboBox2.Items.Add('Shake');
Edit[1] := TEdit.Create(frmDesign);
Edit[1].Parent := frmDesign;
Edit[1].Left := 8;
Edit[1].Top := 80;
Edit[1].Width := 441;
Edit[1].Height := 21;
Edit[1].TabOrder := 11;
Edit[1].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 456;
ComboBox3.Top := 80;
ComboBox3.Width := 89;
ComboBox3.Height := 21;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 12;
ComboBox3.Text := 'ComboBox1';
ComboBox3.Items.Add('Yellow (Normal Colour)');
ComboBox3.Items.Add('Flash1');
ComboBox3.Items.Add('Flash2');
ComboBox3.Items.Add('Flash3');
ComboBox3.Items.Add('Glow1');
ComboBox3.Items.Add('Glow2');
ComboBox3.Items.Add('Glow3');
ComboBox3.Items.Add('Black');
ComboBox3.Items.Add('Blue');
ComboBox3.Items.Add('Cyan');
ComboBox3.Items.Add('Dark red');
ComboBox3.Items.Add('Green1');
ComboBox3.Items.Add('Green2');
ComboBox3.Items.Add('Green3');
ComboBox3.Items.Add('Green');
ComboBox3.Items.Add('Light Red');
ComboBox3.Items.Add('Magenta');
ComboBox3.Items.Add('Orange1');
ComboBox3.Items.Add('Orange2');
ComboBox3.Items.Add('Orange3');
ComboBox3.Items.Add('Orange');
ComboBox3.Items.Add('Random, flashing text');
ComboBox3.Items.Add('Red');
ComboBox3.Items.Add('White');
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 552;
ComboBox4.Top := 80;
ComboBox4.Width := 65;
ComboBox4.Height := 21;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 13;
ComboBox4.Text := 'ComboBox2';
ComboBox4.Items.Add('Wave');
ComboBox4.Items.Add('Wave2');
ComboBox4.Items.Add('Scroll');
ComboBox4.Items.Add('Shake');
Edit[3] := TEdit.Create(frmDesign);
Edit[3].Parent := frmDesign;
Edit[3].Left := 8;
Edit[3].Top := 112;
Edit[3].Width := 441;
Edit[3].Height := 21;
Edit[3].TabOrder := 14;
Edit[3].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
Edit[4] := TEdit.Create(frmDesign);
Edit[4].Parent := frmDesign;
Edit[4].Left := 8;
Edit[4].Top := 144;
Edit[4].Width := 441;
Edit[4].Height := 21;
Edit[4].TabOrder := 15;
Edit[4].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
Edit[5] := TEdit.Create(frmDesign);
Edit[5].Parent := frmDesign;
Edit[5].Left := 8;
Edit[5].Top := 176;
Edit[5].Width := 441;
Edit[5].Height := 21;
Edit[5].TabOrder := 16;
Edit[5].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
Edit[6] := TEdit.Create(frmDesign);
Edit[6].Parent := frmDesign;
Edit[6].Left := 8;
Edit[6].Top := 208;
Edit[6].Width := 441;
Edit[6].Height := 21;
Edit[6].TabOrder := 17;
Edit[6].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
Edit[7] := TEdit.Create(frmDesign);
Edit[7].Parent := frmDesign;
Edit[7].Left := 8;
Edit[7].Top := 240;
Edit[7].Width := 441;
Edit[7].Height := 21;
Edit[7].TabOrder := 18;
Edit[7].Text := 'Selling 1k Iron. 90 ea. 90k for all. Trade Username';
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 456;
ComboBox5.Top := 112;
ComboBox5.Width := 89;
ComboBox5.Height := 21;
ComboBox5.ItemHeight := 13;
ComboBox5.TabOrder := 19;
ComboBox5.Text := 'ComboBox1';
ComboBox5.Items.Add('Yellow (Normal Colour)');
ComboBox5.Items.Add('Flash1');
ComboBox5.Items.Add('Flash2');
ComboBox5.Items.Add('Flash3');
ComboBox5.Items.Add('Glow1');
ComboBox5.Items.Add('Glow2');
ComboBox5.Items.Add('Glow3');
ComboBox5.Items.Add('Black');
ComboBox5.Items.Add('Blue');
ComboBox5.Items.Add('Cyan');
ComboBox5.Items.Add('Dark red');
ComboBox5.Items.Add('Green1');
ComboBox5.Items.Add('Green2');
ComboBox5.Items.Add('Green3');
ComboBox5.Items.Add('Green');
ComboBox5.Items.Add('Light Red');
ComboBox5.Items.Add('Magenta');
ComboBox5.Items.Add('Orange1');
ComboBox5.Items.Add('Orange2');
ComboBox5.Items.Add('Orange3');
ComboBox5.Items.Add('Orange');
ComboBox5.Items.Add('Random, flashing text');
ComboBox5.Items.Add('Red');
ComboBox5.Items.Add('White');
ComboBox6 := TComboBox.Create(frmDesign);
ComboBox6.Parent := frmDesign;
ComboBox6.Left := 456;
ComboBox6.Top := 176;
ComboBox6.Width := 89;
ComboBox6.Height := 21;
ComboBox6.ItemHeight := 13;
ComboBox6.TabOrder := 20;
ComboBox6.Text := 'ComboBox1';
ComboBox6.Items.Add('Yellow (Normal Colour)');
ComboBox6.Items.Add('Flash1');
ComboBox6.Items.Add('Flash2');
ComboBox6.Items.Add('Flash3');
ComboBox6.Items.Add('Glow1');
ComboBox6.Items.Add('Glow2');
ComboBox6.Items.Add('Glow3');
ComboBox6.Items.Add('Black');
ComboBox6.Items.Add('Blue');
ComboBox6.Items.Add('Cyan');
ComboBox6.Items.Add('Dark red');
ComboBox6.Items.Add('Green1');
ComboBox6.Items.Add('Green2');
ComboBox6.Items.Add('Green3');
ComboBox6.Items.Add('Green');
ComboBox6.Items.Add('Light Red');
ComboBox6.Items.Add('Magenta');
ComboBox6.Items.Add('Orange1');
ComboBox6.Items.Add('Orange2');
ComboBox6.Items.Add('Orange3');
ComboBox6.Items.Add('Orange');
ComboBox6.Items.Add('Random, flashing text');
ComboBox6.Items.Add('Red');
ComboBox6.Items.Add('White');
ComboBox7 := TComboBox.Create(frmDesign);
ComboBox7.Parent := frmDesign;
ComboBox7.Left := 456;
ComboBox7.Top := 144;
ComboBox7.Width := 89;
ComboBox7.Height := 21;
ComboBox7.ItemHeight := 13;
ComboBox7.TabOrder := 21;
ComboBox7.Text := 'ComboBox1';
ComboBox7.Items.Add('Yellow (Normal Colour)');
ComboBox7.Items.Add('Flash1');
ComboBox7.Items.Add('Flash2');
ComboBox7.Items.Add('Flash3');
ComboBox7.Items.Add('Glow1');
ComboBox7.Items.Add('Glow2');
ComboBox7.Items.Add('Glow3');
ComboBox7.Items.Add('Black');
ComboBox7.Items.Add('Blue');
ComboBox7.Items.Add('Cyan');
ComboBox7.Items.Add('Dark red');
ComboBox7.Items.Add('Green1');
ComboBox7.Items.Add('Green2');
ComboBox7.Items.Add('Green3');
ComboBox7.Items.Add('Green');
ComboBox7.Items.Add('Light Red');
ComboBox7.Items.Add('Magenta');
ComboBox7.Items.Add('Orange1');
ComboBox7.Items.Add('Orange2');
ComboBox7.Items.Add('Orange3');
ComboBox7.Items.Add('Orange');
ComboBox7.Items.Add('Random, flashing text');
ComboBox7.Items.Add('Red');
ComboBox7.Items.Add('White');
ComboBox8 := TComboBox.Create(frmDesign);
ComboBox8.Parent := frmDesign;
ComboBox8.Left := 456;
ComboBox8.Top := 240;
ComboBox8.Width := 89;
ComboBox8.Height := 21;
ComboBox8.ItemHeight := 13;
ComboBox8.TabOrder := 22;
ComboBox8.Text := 'ComboBox1';
ComboBox8.Items.Add('Yellow (Normal Colour)');
ComboBox8.Items.Add('Flash1');
ComboBox8.Items.Add('Flash2');
ComboBox8.Items.Add('Flash3');
ComboBox8.Items.Add('Glow1');
ComboBox8.Items.Add('Glow2');
ComboBox8.Items.Add('Glow3');
ComboBox8.Items.Add('Black');
ComboBox8.Items.Add('Blue');
ComboBox8.Items.Add('Cyan');
ComboBox8.Items.Add('Dark red');
ComboBox8.Items.Add('Green1');
ComboBox8.Items.Add('Green2');
ComboBox8.Items.Add('Green3');
ComboBox8.Items.Add('Green');
ComboBox8.Items.Add('Light Red');
ComboBox8.Items.Add('Magenta');
ComboBox8.Items.Add('Orange1');
ComboBox8.Items.Add('Orange2');
ComboBox8.Items.Add('Orange3');
ComboBox8.Items.Add('Orange');
ComboBox8.Items.Add('Random, flashing text');
ComboBox8.Items.Add('Red');
ComboBox8.Items.Add('White');
ComboBox9 := TComboBox.Create(frmDesign);
ComboBox9.Parent := frmDesign;
ComboBox9.Left := 456;
ComboBox9.Top := 208;
ComboBox9.Width := 89;
ComboBox9.Height := 21;
ComboBox9.ItemHeight := 13;
ComboBox9.TabOrder := 23;
ComboBox9.Text := 'ComboBox1';
ComboBox9.Items.Add('Yellow (Normal Colour)');
ComboBox9.Items.Add('Flash1');
ComboBox9.Items.Add('Flash2');
ComboBox9.Items.Add('Flash3');
ComboBox9.Items.Add('Glow1');
ComboBox9.Items.Add('Glow2');
ComboBox9.Items.Add('Glow3');
ComboBox9.Items.Add('Black');
ComboBox9.Items.Add('Blue');
ComboBox9.Items.Add('Cyan');
ComboBox9.Items.Add('Dark red');
ComboBox9.Items.Add('Green1');
ComboBox9.Items.Add('Green2');
ComboBox9.Items.Add('Green3');
ComboBox9.Items.Add('Green');
ComboBox9.Items.Add('Light Red');
ComboBox9.Items.Add('Magenta');
ComboBox9.Items.Add('Orange1');
ComboBox9.Items.Add('Orange2');
ComboBox9.Items.Add('Orange3');
ComboBox9.Items.Add('Orange');
ComboBox9.Items.Add('Random, flashing text');
ComboBox9.Items.Add('Red');
ComboBox9.Items.Add('White');
ComboBox10 := TComboBox.Create(frmDesign);
ComboBox10.Parent := frmDesign;
ComboBox10.Left := 552;
ComboBox10.Top := 240;
ComboBox10.Width := 65;
ComboBox10.Height := 21;
ComboBox10.ItemHeight := 13;
ComboBox10.TabOrder := 24;
ComboBox10.Text := 'ComboBox2';
ComboBox10.Items.Add('Wave');
ComboBox10.Items.Add('Wave2');
ComboBox10.Items.Add('Scroll');
ComboBox10.Items.Add('Shake');
ComboBox11 := TComboBox.Create(frmDesign);
ComboBox11.Parent := frmDesign;
ComboBox11.Left := 552;
ComboBox11.Top := 208;
ComboBox11.Width := 65;
ComboBox11.Height := 21;
ComboBox11.ItemHeight := 13;
ComboBox11.TabOrder := 25;
ComboBox11.Text := 'ComboBox2';
ComboBox11.Items.Add('Wave');
ComboBox11.Items.Add('Wave2');
ComboBox11.Items.Add('Scroll');
ComboBox11.Items.Add('Shake');
ComboBox12 := TComboBox.Create(frmDesign);
ComboBox12.Parent := frmDesign;
ComboBox12.Left := 552;
ComboBox12.Top := 176;
ComboBox12.Width := 65;
ComboBox12.Height := 21;
ComboBox12.ItemHeight := 13;
ComboBox12.TabOrder := 26;
ComboBox12.Text := 'ComboBox2';
ComboBox12.Items.Add('Wave');
ComboBox12.Items.Add('Wave2');
ComboBox12.Items.Add('Scroll');
ComboBox12.Items.Add('Shake');
ComboBox13 := TComboBox.Create(frmDesign);
ComboBox13.Parent := frmDesign;
ComboBox13.Left := 552;
ComboBox13.Top := 144;
ComboBox13.Width := 65;
ComboBox13.Height := 21;
ComboBox13.ItemHeight := 13;
ComboBox13.TabOrder := 27;
ComboBox13.Text := 'ComboBox2';
ComboBox13.Items.Add('Wave');
ComboBox13.Items.Add('Wave2');
ComboBox13.Items.Add('Scroll');
ComboBox13.Items.Add('Shake');
ComboBox14 := TComboBox.Create(frmDesign);
ComboBox14.Parent := frmDesign;
ComboBox14.Left := 552;
ComboBox14.Top := 112;
ComboBox14.Width := 65;
ComboBox14.Height := 21;
ComboBox14.ItemHeight := 13;
ComboBox14.TabOrder := 28;
ComboBox14.Text := 'ComboBox2';
ComboBox14.Items.Add('Wave');
ComboBox14.Items.Add('Wave2');
ComboBox14.Items.Add('Scroll');
ComboBox14.Items.Add('Shake');
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 632;
CheckBox1.Top := 48;
CheckBox1.Width := 17;
CheckBox1.Height := 17;
CheckBox1.TabOrder := 29;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 632;
CheckBox2.Top := 80;
CheckBox2.Width := 17;
CheckBox2.Height := 17;
CheckBox2.TabOrder := 30;
CheckBox3 := TCheckBox.Create(frmDesign);
CheckBox3.Parent := frmDesign;
CheckBox3.Left := 632;
CheckBox3.Top := 112;
CheckBox3.Width := 17;
CheckBox3.Height := 17;
CheckBox3.TabOrder := 31;
CheckBox4 := TCheckBox.Create(frmDesign);
CheckBox4.Parent := frmDesign;
CheckBox4.Left := 632;
CheckBox4.Top := 144;
CheckBox4.Width := 17;
CheckBox4.Height := 17;
CheckBox4.TabOrder := 32;
CheckBox5 := TCheckBox.Create(frmDesign);
CheckBox5.Parent := frmDesign;
CheckBox5.Left := 632;
CheckBox5.Top := 176;
CheckBox5.Width := 17;
CheckBox5.Height := 17;
CheckBox5.TabOrder := 33;
CheckBox6 := TCheckBox.Create(frmDesign);
CheckBox6.Parent := frmDesign;
CheckBox6.Left := 632;
CheckBox6.Top := 208;
CheckBox6.Width := 17;
CheckBox6.Height := 17;
CheckBox6.TabOrder := 34;
CheckBox7 := TCheckBox.Create(frmDesign);
CheckBox7.Parent := frmDesign;
CheckBox7.Left := 632;
CheckBox7.Top := 240;
CheckBox7.Width := 17;
CheckBox7.Height := 17;
CheckBox7.TabOrder := 35;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 456;
Button1.Top := 280;
Button1.Width := 177;
Button1.Height := 25;
Button1.Caption := '&S&u&b&m&i&t Custom Settings';
Button1.TabOrder := 36;
Button1.ModalResult := 1;
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;
procedure TypeSendSettings;
begin
if(IsFKeyDown(2)) then
begin
TypeSend(Sen[1]);
repeat
Wait(1)
until not IsFKeyDown(2)
end;
if(IsFKeyDown(3)) then
begin
TypeSend(Sen[2]);
repeat
Wait(1)
until not IsFKeyDown(3)
end;
if(IsFKeyDown(4)) then
begin
TypeSend(Sen[3]);
repeat
Wait(1)
until not IsFKeyDown(4)
end;
if(IsFKeyDown(5)) then
begin
TypeSend(Sen[4]);
repeat
Wait(1)
until not IsFKeyDown(5)
end;
if(IsFKeyDown(6)) then
begin
TypeSend(Sen[5]);
repeat
Wait(1)
until not IsFKeyDown(6)
end;
if(IsFKeyDown(7)) then
begin
TypeSend(Sen[6]);
repeat
Wait(1)
until not IsFKeyDown(7)
end;
if(IsFKeyDown(8)) then
begin
TypeSend(Sen[7]);
repeat
Wait(1)
until not IsFKeyDown(8)
end;
end;
begin
SafeInitForm;
SafeShowFormModal;
for i := 1 to 7 do
Sen[i] := Edit[i].Text;
repeat
TypeSendSettings;
until(IsFKeyDown(10))
end.