Random Goodie

Was bored so i made a typer-backwards program, don't know what this will ever come in handy for but here ya go!

Code:

procedure Backwards(S:String);
 begin
      i:=length(s);
   while i>0 Do
 begin
   SendKeys(Copy(S,I,1));
   Wait(50 + Random(25));
   i:=i-1;
 end;
 end;

 

.lol.

 

You do understand that instead of using the Copy command is useless, as you can access the values of a string by using indices, yes?

 

No, >_> i didn't understand a word you just said...