Funktion in anderer Unit

[nahpets]

so sollte es gehen

Delphi-Quellcode:

... 
procedure PHPVar(RichEdit: TRichEdit); 

implementation 

{$R *.dfm} 


procedure TForm4.PHPVar(RichEdit: TRichEdit); 
var 
  isVar: Boolean; 
  i: Integer; 
  s: String; 
begin 
  for i := 0 to Length(RichEdit.Text) do 
  begin 
...