BD corrompido como saber se está ou não....

var
  S: string;
begin
  Memo1.Lines.Clear;  // 1 memo no form
  with IBValidationService1 do
  begin
    ServerName := ´localhost´;
    Protocol := TCP;
    DatabaseName := ´SeuBanco.IB´;
    Params.Values[´user_name´] := ´sysdba´;
    Params.Values[´password´] := ´masterkey´;
    LoginPrompt := False;
    Active := True;
    // todas as propriedades acima podem ser preenchidas
    // em tempo de projeto
    try
      Options := [ValidateDB, ValidateFull];  // gfix -v -f
      ServiceStart;
      S := GetNextLine;
      if S = EmptyStr then
        Memo1.Lines.Add(´arquivo ok´)
      else
        repeat
          Memo1.Lines.Add(S);
          S := GetNextLine;
        until (S = EmptyStr);
    finally
      Active := False;
    end;
  end;
end;