Ruby in Delphicode übersetzen?

[bberger1234]

Bin mittler Weile völlig am Ende. Es funktioniert einfach nicht...
Folgendes habe ich schon mal geschrieben:

Delphi-Quellcode:

nit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Button1: TButton;
    GroupBox4: TGroupBox;
    ListBox1: TListBox;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  farbfolge:array of integer;   //Arrays für die Farbfolge

implementation

{$R *.dfm}




 procedure TForm1.Button1Click(Sender: TObject);
 var zahlenfolge:integer;
     umwandlung: integer;
     umformung: integer

 begin
   umwandlung:=Edit1.text;
   umwandlung:= ord(eSecond);      // Umwandlung Buchstaben nach Zahlen
     begin
       zahlenfolge:=umwandlung;
       umformung:zahlenfolge('')+1    //bei der Umformung habe ich keine Idee
                                      // wie ich die erste Stelle nach hinten
                                      // bekomme

 end;



procedure TForm1.BitBtn3Click(Sender: TObject);

begin
    if not (edit1.text='')then
    begin
      listbox1.items.Add(edit1.text);
      setlength(farbfolge,length(farbfolge)+1);
      c:=c+1;
      farbfolge[c]:=strtoint(edit1.Text);
      edit1.Text:='';
    end;
end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin                           // es können nur sechs Buchstaben eingegeben werden
  if not (Key in [w,s,r,g,n,b]) then Key:=#0;
end;

end.

Hoffe mal mir kann hier einer einen Tipp geben (ist wirklich dringend)
Ciao Tina.