cäsar 1,2,3

[mlhk]

hey,
ich möchte bei meiner cäser verschlüsselung erreichen das der 1 buchstabe um 1 der 2 um 2 und 3 um 3, sowie 4wieder 1 und der 5 um 2, also ich denke ihr wisst was ich meine

Delphi-Quellcode:

function verschluesselung1(text:string;b:integer):string ;
var i,a,z : integer;
var ergtext : string;
begin
z:=1;
for i := 1 to length(text) do
begin
a:= ord(text[i]);
a:=a+z;
if z=1 then z:=z+1;
if z=2 then z:=z+1;
if z=3 then z:=1;
ergtext:=ergText+chr(a);
end;
result:=ergtext;
verschluesselung1:= ergtext;
end;

problem ist halt nur das er jetzt immer nur um 1 erhöht, erläuft den z algo halt gleich komplett durch, wie kann ich das um gehen, in dem dazwischen immer schon um 1 rauft zähle in der for schleife also keine ahnung ob ich da drauf ein fluss nehmen kann?

mfg
max