[[coso]]

hola,

Código Delphi [-]
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
        FRegistroclient:=TFRegistroclient.Create(self);   
        try    
           FRegistroclient.ShowModal;   
        finally   
           If FRegistroclient.Nom_Cliente <> '' then EdiCliente.Text := FRegistroclient.Nom_Cliente;   
           LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);   
           FRegistroclient.Free;   
        end;
end;

esto te dara excepcion la segunda vez q lo uses

PD : si vamos a hablar, por favor, usa una letra normal, no uses ninguna etiqueta para tus escritos, usa etiquetas [ delphi],[ /delphi] para el codigo, y [ quote], [/ quote] para comentarios sobre mensajes anteriores