Вывести список отсутствующих в базе значений.

[OlegVE]

Здравствуйте
Попробуйте такую функцию для "нормализации" Ваших IP.

function RemoveLeadingZero(strIP:string):string;
begin
 Result := strIP;
 while Pos('.0', Result) > 0 do Delete(Result,Pos('.0', Result)+1,1);
end;

И вставьте её, например, сюда

if RemoveLeadingZero(ADOQuery1.FieldByName('IP').AsString)=ListBox1.Items.Strings[i] then
...

До свидания