Delphi-PRAXiS - Von Lua zu Pascal (Delphi)

Guten Tag meine Freunde ,
ich habe hier wieder eine Frage ,ich habe neulich eine Aufgabe mit Delphi im rahmen meines Praktikums ,und zwar ich müsste ein Code in Lua-Programieresprache in Pascal-sprache umwandeln .
ps: meine kenntnisse in Delphi sind leider nicht so gut .ich benutze jetzt Delphi Embercado Rad Studio XE6 Version 20.0

Code:

			smua.reset()

smua.source.func = smua.OUTPUT_DCAMPS

smua.sense = smua.SENSE_REMOTE

smua.measure.autozero = smua.AUTOZERO_ONCE

smua.source.rangev = 10 --Messbereich Spannung

smua.source.rangei = 1 --Messbereich Strom

smua.source.limiti = 1 --absolutes Limit Strom in A

smua.source.limitv = 2 --absolutes Limit Spannung in V

smua.measure.rangei = 1

smua.measure.rangev = 10

smua.source.output = smua.OUTPUT_ON

settime(0)

timer.reset()

for anzahl = 1, 2 do --zweiter Wert ist die Zyklenanzahl   

   smua.source.sink = smua.DISABLE

   smua.source.leveli = 0.0001 --Ladestrom in A   

   -- print("Zyklus ", anzahl)

   while smua.measure.v() <= 1.8 --Ladeschlussspannung in V

   do 

      time = timer.measure.t()

      print(smua.measure.v(smua.nvbuffer1), smua.measure.i(smua.nvbuffer1), time, "Zyklus ", anzahl)

      delay(1)

   end

   smua.source.sink = smua.ENABLE

   smua.source.leveli = -0.0001 --Entladestrom in A, muss negatives Vorzeichen haben

   while smua.measure.v() >= 0.0 do --Entladeschlussspannung in V

      time = timer.measure.t()

      print(smua.measure.v(smua.nvbuffer1), smua.measure.i(smua.nvbuffer1), time, "Zyklus ", anzahl)

      delay(1)

   end

end

smua.source.leveli=0

könnte mir velleicht jemand helfen... Vielen dank .

nur zur info es geht hier um Keithley 2651A .