[alexnov]

Спасибо за помощь, понял вроде. В базу добавляет, но тут еще не пойму аочему при выполнении следующего кода у меня остальные поля заполняются не в найденной записи а в новой в конце таблицы?!!?

procedure add_hard_info_to_db(AName:string; ip:string; text:string); //добавление информации о пк в базу
begin
DataModule1.ADOTable_Comps.First;
if (DataModule1.ADOTable_Comps.Locate('compname',ANam e,[]))=false then
ShowMessage('Ошибка! Компьютер с именем '+AName+ ' не найден в БД!')
else
begin
ShowMessage('Компьютер с именем '+AName+ ' найден в БД!');
DataModule1.ADOTable_Comps.Append;
DataModule1.ADOTable_Comps.FieldByName('ip_ad').As String := ip;
DataModule1.ADOTable_Comps.FieldByName('monitor'). AsString := text;
DataModule1.ADOTable_Comps.Post;
end;

end;