rendered paste body frmDesign := CreateForm;
frmDesign.BorderStyle := bsNone;
frmDesign.Left := 300;
frmDesign.Top := 200;
frmDesign.Width := 365;
frmDesign.Height := 210;
frmDesign.Caption := 'Auto guildminer';
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 := 104;
Label1.Top := 56;
Label1.Width := 57;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 104;
Label2.Top := 96;
Label2.Width := 57;
Label2.Height := 13;
Label2.Caption := 'Password:';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 176;
Edit1.Top := 56;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := '';
Edit1.MaxLength := 20;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.PasswordChar := '*';
Edit2.MaxLength := 20;
Edit2.Left := 176;
Edit2.Top := 96;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := '';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 176;
Button1.Top := 136;
Button1.Width := 113;
Button1.Height := 33;
Button1.Caption := 'Start bot';
Button1.TabOrder := 10;
Button1.OnClick := @test; //Dont forget the @
Button2 := TButton.Create(FrmDesign); // This will create the button. Must be called.
Button2.Parent := FrmDesign; // The parent is very important. Without the parrent set to the formname the button won't be visible
Button2.Left := 176; // how many pixels from the left
Button2.Top := 170; // how many pixels from the top
Button2.Height := 33; // the height of the button
Button2.Width := 113; // the width of the button
Button2.Caption := 'Close form';
Button2.OnClick := @closeform; //Dont forget the @