kiedy tworzysz nowa procedure recznie, to przed jej nazwa musisz podac nazwe formy, na ktorej sie znajduje. np:
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure PokazWiadomosc;//Nasz procedura
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.PokazWiadomosc;
begin
ShowMessage('Czesc, to jest moja wlasna procedura');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PokazWiadomosc;
end;
jesli przy tworzeniu procedury nie dodasz Tnazwa_jaka_nadales_formie to procedura nie bedzie dziedziczyc nazw zmiennych.
//Wybasz, ze zmienilem twoj przyklad..ale nie byl dosc przejrzysty..mam nadzieje ze nie masz nic przeciwko [browar] -mL