1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1click (sender: Tobject);
var str, str2: string;
begin
str := memo1.lines[strtointdef(edit1.text, 1)-1];
for i := length(str) downto 0 do
begin
str2 := str2 + str[i];
end;
memo1.lines[strtointdef(edit1.text, 1)-1]:= str;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button2Click(Sender: TObject);

var  zk : string;        //Inhalt Memofeld
     Z : Integer;       //Z - Zahl in Edit1
      i:integer;
     zk2: string;

begin
      Z:=strtoint (Edit1.text);              //auslesen der einzelnen Zeilen
      zk:=Memo1.Lines[Z];
  for i :=length(zk) downto 1 do
begin
zk2:= zk2+copy(zk,i,1);

end;
 memo1.Lines[z] := zk2;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button2Click(Sender: TObject);
var
  z: Integer;
begin
  if not (TryStrToInt(Edit1.Text,z)) then exit; //Fehlerbehandlung bei flascher Editeingabe
  if (z < 0) or (z > Memo1.Lines.Count-1) then exit;  //Liegt nicht im Bereich
  Memo1.Lines.Strings[z] := ReverseString(Memo1.Lines.Strings[z]); //Zuweisen
end;