[[AzidRain]]

Se entiende si lo lees detenidamente: Tiene ese código en VB y lo quiere pasar a Delphi...

Código Delphi [-]
Procedure LoMismo;
var c,i,desplazamiento,longitud:Integer;

Begin
  desplazamiento:= StrToInt(Form1.Text4.Text);
  longitud          := Length( Form1.Text1.Text);
  Form1.Text2.Text := '';
  For i := 1 to longitud Do
  Begin
    c := Asc( Copy (Form1.Text1.Text, i,1));
    c := c + desplazamiento;
    Form1.Text2.Text := Form1.Text2.Text + Chr (c);
  End;
End;