Puedes declaralo asi
Código Delphi
[-]
unit formulario1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrm_pl = class(TForm)
Edt_1: TEdit;
Btn_n1: TButton;
Btn_n3: TButton;
Btn_o1: TButton;
Btn_n2: TButton;
Btn_n4: TButton;
Btn_n7: TButton;
Btn_n8: TButton;
Btn_n5: TButton;
Btn_n6: TButton;
Btn_n9: TButton;
Btn_o2: TButton;
Btn_o3: TButton;
Btn_n0: TButton;
Btn_o4: TButton;
Btn_o6: TButton;
Btn_o5: TButton;
function insertar(numero: string): integer;
private
public
end;
var
Frm_pl: TFrm_pl;
implementation
{$R *.dfm}
var usado: integer;
TFrm_pl.function insertar(numero: string): integer;
begin
if (usado= 0) then
begin
Edt_1.Text:= '';
usado:= 1;
end;
Edt_1.text:= Edt_1.text + numero;
end;
end.
o bien puedes dejarlo como lo tienes y cambiar esto
Edt_1.text:= Edt_1.text + numero;
por esto:
Frm_pl.Edt_1.text:= Frm_pl.Edt_1.text + numero;