Delphi - conexxion delphi

como me conecto a una base de datos con odbc en delphi
todo desde el codigo, sin usar componentes
ya lo he intentado y no se arma

les agradesco la solucion si es que la tienen

Intenta usar este código:
try
with ADOConnection1 do
begin
Connected := false;
CommandTimeout := 0;
ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Infprog1;Initial Catalog=Cooperativa';
Connected := true;
end;
except
ShowMessage('Error al intentar conectar');
end;