uma function ou procedure ???
procedure TForm1.Button1Click(Sender: TObject); procedure blabla ( obj1 : tedit; obj2 : tlabel ); begin obj2.Caption := obj1.Text; end; begin blabla( edit1, label1 ); // é igual à label1.caption := edit1.text; end; Luiz Escobar ------------- Segue mensagem original! ------------- De: "Fabiana" <[EMAIL PROTECTED]> Data: Fri, 8 Dec 2006 13:19:42 -0200 Para: <delphi-br@yahoogrupos.com.br> Assunto: [delphi-br] Criar Função Boa tarde para todos... Como faço para criar uma função onde o paramentro seja do tipo objeto? Fabiana [As partes desta mensagem que não continham texto foram removidas]