Kryptologie Projekt in Delphi... HILFE !!!

[Jacqybaby]

so ich hab mal einen verbalen Algirithmus für das entschlüsseln formuliert:

1. Ermittle Anzahl der Zeilen(memmo.lines.count)
2. Beginne mit dem 1. Buchstaben des verschluesselten textes.
3. (Springe 4 Stellen weiter, schreibe den (an dieser Stelle stehenden) Buchstaben)* schlüssel
4. (Gehe eine Stelle weiter, wiederhole 3.) solange bis length(verschluesselter text) .

Das müsste eigentlich funktionieren. Die Schwierigkeit ist jetzt aber das in Delphi zu formulieren.

Ich hab schon was versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s,z,i,j:integer;
    vtext:string;
begin
z:=memo3.lines.count;
s:=strtoint(schluessel.Text);
vtext:=memo4.Text;
memo3.Lines.Clear;
  for i:=0 to length(vtext) do
  begin
    for j:=1 to s Do
    begin
    XXXXXXXXX//hier müsste das innere der Klammer aus 3. und 4. formuliert werden...
    end;
  end;
end;

an der Stelle komme ich nicht weiter...