Дык найди нужную запись в таблице сначала. Например, так:
Код:
if Edit1.Text<>'admin' then
begin
DataModule1.ADOTable1.First;
While Not DataModule1.ADOTable1.Eof Do
begin
If Edit1.Text = DataModule1.ADOTable1.FieldByName('login').AsString Then
begin
Form3.Label1.Caption:=DataModule1.ADOTable1.FieldByName('np').AsString;
Break;
end;
DataModule1.ADOTable1.Next;
end;