self.con1.ConnectionString:=‘Provider=MSDAORA.1;User ID=system;Data Source="(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))(CONNECT_DATA=(SID=orcl)))";Password=Gogogo123;ConnectTimeout=3‘; self.con1.Open; if self.con1.Connected then begin ShowMessage(‘ok‘); end;