kullanıcı aktif ve ya pasif durumu hakkında

merhaba ben kullanıcı giriş ekranında kullanıcının aktif ve ya pasif durumunu sql üzerinde sorgulamak istiyorum sql üzerinde bir sütun açtım oraya gerekli verileri girdim ancak*konu hakkında nasıl bir kod yapısı kullana bilirim kavrayamadım kullandığım kod yapısı aşağıdaki gibi

procedure Tanaform1.Rectangle3Click(Sender: TObject);
begin
* with UniQuery1 do
* begin
* * Close;
* * SQL.Clear;
* * SQL.Text := 'select * from uye where (username=:kdi and uye_pw=swrd)';
* * ParamByName('kdi').Value := usrnm.Text;
* * ParamByName('pswrd').Value := sfrr.Text;
* * open;
* end;

* if UniQuery1.RecordCount > 0 then
* begin
* * ShowMessage('Giriş Başarılı');
* * form1.show;
* * form1.Edit1.Text := usrnm.Text;
* end
* else
* begin
* * if UniQuery1.RecordCount