Tratando Instâncias de Formumlário

TFormCreditos.mostrarCreditos(Self, Cod_Cliente);

class procedure TFormCreditos.mostrarCreditos(AOwner: TComponent; cdCliente: Integer); var f: TFormCreditos; begin {gostaria de validar aqui se já existe uma instância de TFormCreditos a dar o show nela ao inves de criar toda vez} f := TFormCreditos.Create(AOwner, cdCliente); f.carregaCreditos(); f.ShowModal; end;