chamar procedure

[beledson 0]

Olá!Eu quero criar uma procedure e chamá-la dentro da procedure bitbtnclick mas dá errado eu declari ela na class Tformmas na hora de chamar sempre dá erro na compilação como que eu faço para criar as minhas procedures e chamá-las quando eu precisar.

[Rodrigo Miss 1]

na seção public ou private da sua unit faz a declaração:

 

{...}  private	{ Private declarations }  public	{ Public declarations }  procedure TrocaTitle(Str: string);  end;implementation{$R *.dfm}procedure TForm1.TrocaTitle(Str: string);  //aki é sua procedurebegin   self.Caption(str);	end;procedure TForm1.BitBtnClick(Sender: TObject);begin  TrocaTitle('Titulo do meu form alterado por um procedure!');   //aki você xama o procedureend;{...}

[marcio.theis 3]

Caso ainda tenha problemas, coloque o seu fonte ou parte com a mensagem de erro...