DasLampe

// ==UserScript==
// @name        FarmVilleAutoAcceptBot
// @namespace   http://dasLampe.lano-crew.org
// @description Autoaccept of Gifts, for Greasemonkey
// @include http://apps.facebook.com/onthefarm/*
// @include https://apps.facebook.com/onthefarm/*
// ==/UserScript==

function main()
{	

DasLampe

unit cFlexPanel;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

    type
  TFlexPanel  = class(TPanel)
    private

DasLampe

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tmain = class(TForm)

DasLampe

    h := 1;                                 // Shell-Sort
    repeat
        h := 3 * h + 1;
    until h > LBoxDemo.Items.Count - 1;

    repeat
        h := h div 3;
        for i := h to (LBoxDemo.Items.Count - 1) do
        begin
            str := LBoxDemo.Items[i];

DasLampe

unit suchen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tmain = class(TForm)

DasLampe

i := 0
repat
ed_display := IntToStr(i - (y div 3);
lb_demo[i - (y div 3) =  lb_demo2[i]
until i >= x;

DasLampe

unit bubblesort;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)