Oder nenn deine Procedure TForm1.XYZ und setz dann in den Public Teil von TForm1: "procedure XYZ;"
Beispiel:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure XYZ;
//<------Muss so aussehen wie unten das
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.XYZ;
//<------nur oben bei dem muss man das "TForm1." weglassen
begin
Edit1.Text:=Edit1.Text;
end;
end.