Código Delphi [-] procedure TForm1.button1(Sender: TObject); var aux1,aux2,aux3 : Variant; begin aux1 := 'primer'; aux2 := 'segundo'; aux3 := 'tercero'; SetLength(funciones,1); funciones[0] := LoqueSea; loquesea(aux1,aux2,aux3); funciones[0](aux1,aux2,aux3); end;
procedure TForm1.button1(Sender: TObject); var aux1,aux2,aux3 : Variant; begin aux1 := 'primer'; aux2 := 'segundo'; aux3 := 'tercero'; SetLength(funciones,1); funciones[0] := LoqueSea; loquesea(aux1,aux2,aux3); funciones[0](aux1,aux2,aux3); end;