Código Delphi
[-]unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
procedure FormShow(Sender: TObject);
procedure di_hola;
private
public
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.di_hola;
begin
edit1.Text := 'hola';
end;
procedure TForm2.FormShow(Sender: TObject);
begin
di_hola;
end;
end.
De esta manera funciona... Mira donde esta declarado el procedimiento.
__________________
"Sé de tal manera y vive una vida tal, que si todos los hombres fueran como tú y vivieran como tú, nuestro mundo sería un paraíso terrenal"
Siempre hazlo con la ayuda de Dios