Delphi Facharbeit

[hanki]

Also zuersteinmal danke für die schnellen antworten
die forensuche hätte ich gründlicher nutzen können das ist richtig.entschuldigung.
Um auf die eigeninitiative zu sprechen zu kommen:
Ich habe etwas ausprobiert jedoch hat er dann immer zwei fehler angezeigt und ich habe mir gedacht ich kann besser von 0 anfangen :
hier mein versuch:

Delphi-Quellcode:

procedure TForm1.btsatztverschluesselnClick(Sender: TObject);
var  i, k, s, v: integer;
 begin
  if length (edeingabe.text)=0 then
   begin
    showmessage('Es ist kein Satz zum verschlüsseln vorhanden!')
   end
 else begin
  for s:=1 to length(edverschiebung) do
   begin
    if Pos(edverschiebung[s],eingabemoeglichkeit)>0
     then begin
      v:= StrToIntdef(edverschiebung.Text,5);                                                
      edausgabe.clear;
    end;                                                              
     for i := 1 to Length(edeingabe.Text) do
      begin                                                                        
       k:= Ord(edeingabe.Text[i]);                                                   
       k := k + v;                                                               
       edausgabe.Text := edausgabe.Text + chr(k);
      end;
     end;
   end;
 end;