interface uses ...,OraError; ... procedure TForm1.ConnectToBase; try OraSession1.Connect; except on E:EOraError do begin ShowMessage(E.Message); ... end; end; end;
uses ...,OraError;