Appel de procédure pascal objet (delphi)

Bonjour,
j'ai un petit problème,
je shouhaite que la procédure qui est situer dans une de mes formes soit executer dans la forme suivant;

voici la procedure que je veux exécuter(elle fonctionne très bien):
{------------------------------------------------}
procedure TFORME_FACTURES.revoir_facture(Sender: TObject);
{------------------------------------------------}
var
a:byte;
begin
edit_fact_credit.text:=floattostr(efactures.PORTE_CREDIT);
edit_fact_cash.text:=floattostr(abs(efactures.GRAND_TOTAL-(efactures.PORTE_CREDIT)));
edit_fact_cash.color:=clmoneygreen;
edit_fact_credit.color:=clmoneygreen;
edit_fact_cash.Enabled:=false;
edit_fact_credit.Enabled:=false;
edit_fact_nofact.text:=inttostr(efactures.NO_FACTURE);
edit_fact_numclient.Text:=(efactures.NO_CLIENTS);
radiobutton3.enabled:=false;
radiobutton1.enabled:= false;
edit_fact_numclient.enabled:=false;
rechercherclient.enabled:=false;
radiobutton4.enabled:=false;
radiobutton2.enabled:= false;
radiobutton5.enabled:= false;
edit_fact_noarticles.Enabled:=false;
recherchera.Enabled:=false;
payer.Enabled:=false;
edit_fact_nbitems.Text:=inttostr(efactures.NB_ITEMS);
for a:= 1 to (efactures.nb_items) do
begin
listbox1.Items.Add(FORMAT('%8s %-40s %7.2f %2d %-12.2f',[efactures.ACHATS[a].no_articles , efactures.ACHATS[a].nom_articles, efactures.ACHATS[a].prix_unitaire, efactures.ACHATS[a].qt_achetee, efactures.ACHATS[a].total_article])) ;
end ;
ajouter.enabled:=false;
edit_fact_soustotal.Text:=floattostr(efactures.SOUSTOTAL);
edit_fact_taxefed.Text:= floattostr(efactures.TAXE_FED);
edit_fact_taxeprov.Text:= floattostr(efactures.TAXE_PROV);
edit_fact_grandtotal.Text:= floattostr(efactures.GRAND_TOTAL);

end;

mais je shouhaite pouvoir l'exécuter dand une forme autre. car je fais la recherche d'une facture et je souhiate qu'elle soit afficher dans la forme de base de la facture pour que le gestionaire puisse s'assurer que la facture est la bonne.

j'utilise la procedure suivante pour appeler cet affichage

if radiobutton3.checked= true then
begin
Visible := false;
FORME_FACTURES.ShowModal;
tforme_factures(revoir_facture(Sender)(voici ou est mo problème, je ne reussit pas à la faire reconaitre dans la forme a partir duquel elle est exécuter

merci à l'avance.
Visible := true;
end;