Delphi Facharbeit

[hanki]

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;

habe nun das .text hinzugefügt und es klappt auch.
danke schonmal,
jedoch besteht nun noch das problem, dass mein text zu oft verschlüsselt wird.
werde aber noch drübergucken.
DANKE an alle
wer noch ideen hat, ich bin immer dankbar =P