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

procedure verSchluessel(text: string);
begin
  text := StringReplace(text, '\', '/', [rfReplaceAll, rfIgnoreCase]);
  Memo_Output.Text := text;
end;

procedure TForm_Main.Button1Click(Sender: TObject);
begin
  verSchluessel(Memo_Input.Text);
end;					

1:
2:
3:

[Fehler] code.pas(94): Undefinierter Bezeichner: 'Memo_Output'
[Fehler] code.pas(94): Operator oder Semikolon fehlt
[Fataler Fehler] codeerzeuger.dpr(5): Verwendete Unit 'code.pas' kann nicht compiliert werden					

1:
2:
3:
4:

procedure verSchluessel(const Text: string);  
begin  
  Form1.Memo_Output.Text := StringReplace(Text, '\', '/', [rfReplaceAll, rfIgnoreCase]);
end;					

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

public
    { Public-Deklarationen }
    procedure verSchluessel(text: string);

// und dann in der jetzigen Deklaration:

procedure TForm1.verSchluessel(text: string); // oder TForm2 oder wie auch immer
begin
  text := StringReplace(text, '\', '/', [rfReplaceAll, rfIgnoreCase]);
  Memo_Output.Text := text;
end;