Delphi - Ayuda con Alta de usuario

begin

qCuentas.close;

qCuentas.SQL.clear;

qCuentas.SQL.Add('select * from cuentas');

qCuentas.SQL.Add('where usuario= :user');

qCuentas.ParamByName('user').AsString:= eUsuario.text;

qCuentas.Open;

if not qCuentas.IsEmpty then

showmessage('el usuario existe');

end else

begin

qCuentas.ParamByName('usuario').Value:=eUsuario.Text

qCuentas.ParamByName('pass').Value:=ePass.Text

end;

end;

begin

  qCuentas.close;

  qCuentas.SQL.clear;

  qCuentas.SQL.Add('select * from cuentas');

  qCuentas.SQL.Add('where usuario= :user');

  qCuentas.ParamByName('user').AsString:= eUsuario.text;

  qCuentas.Open;

  if not qCuentas.IsEmpty then

    showmessage('el usuario existe');

  end else begin

    qCuentas.close;

    qCuentas.SQL.clear;

    qCuentas.SQL.Add('insert into cuentas (usuario, password) values(:usuario, :password)');

    //en la linea de arriba, sustituye los campos por los que realmente tiene tu tabla, pues yo puse esos como ejemplo

    qCuentas.ParamByName('usuario').Value:=eUsuario.Text;

    qCuentas.ParamByName('password').Value:=ePass.Text;

    qCuentas.ExecSQL;//<<-----Esta linea no recuerdo si es asi, si no busca una similar (executesql por ejemplo) no se usa el open aqui

  end;

end;