Verschlüsselung mit dem Caesar Verfahren

[UdoVogel]

Hallo zusammen.
Ich würde gerne ein Delphi Programm erstellen, bei dem der Benutzer einen mehrzeiligen Text eingeben kann.
Dieser soll im Caesar Verfahren verschlüsselt und dem Benutzer ausgegeben werden.
Dabei soll aber Groß- und Kleinschreibung, sowie Satzzeichen berücksichtigt werden.
Mein Ansatz (bei dem nur Groß- und Kleinschreibung berücksichtigt ist):

Delphi-Quellcode:

procedure TForm1.BEntschluesselnClick(Sender: TObject);
var parameter, x, s, y: integer;
    alphabet, a: string;
    b: char;
 begin
  MAusgabe.Text:='';
  alphabet:=MEingabe.Text;
  parameter:=Para.Value;
   for y:=1 to length(alphabet) do
    begin
     s:=ord(alphabet[y]);
     x:=s+parameter;
      if s<96 then
       if x>90 then b:=chr(x-26)
       else b:=chr(x);
      if s>96 then
       if x>122 then b:=chr(x-26)
       else b:=chr(x);
      a:=a+b
    end;
     MAusgabe.Lines.Add(a);
 end;

procedure TForm1.BVerschluesselnClick(Sender: TObject);
var parameter, x, s, y: integer;
    alphabet, a: string;
    b: char;
 begin
  MAusgabe.Text:='';
  alphabet:=MEingabe.Text;
  parameter:=Para.Value;
   for y:=1 to length(alphabet) do
    begin
     s:=ord(alphabet[y]);
     x:=s-parameter;
      if s<96 then
       if x<65 then b:=chr(x+26)
       else b:=chr(x);
      if s>96 then
       if x<97 then b:=chr(x+26)
       else b:=chr(x);
      a:=a+b;
    end;
     MAusgabe.Lines.Add(a);
 end;

Der Text wird aber immer in einer Zeile verschlüsselt, bzw. entschlüsselt und es werden keine Satzzeichen berücksichtigt.
Weiß jemand die Lösung meines Problems?
Wie müssen die Zahlen geändert werden, damit alles berücksichtigt wird?
MfG
UdoVogel

[edit=alcaeus]Delphi-Tags eingefuegt und Personality richtig gesetzt. In Zukunft bitte selbst machen, Danke. Mfg, alcaeus[/edit]