if ADOTable1.Supports(coSeek) then begin

 with ADOTable1 do begin

   Close;

   IndexName := strIndex;

   CursorLocation := clUseServer;

   Open;

   Seek (Edit1.Text, soFirstEQ);

  end;

  if ADOTable1.EOF then

   ShowMessage ('Record value NOT found');

end

while not ADOQuery2.EOF do  

if ADOQuery1.Locate('employee_id', Variant(ADOQuery2.FieldbyName('e_id').AsInteger), [loCaseInsensitive]) Then

  Showmessage('Запись уже существует')

else

begin

  ADOQuery1.insert;

  ADOQuery1.FieldByName('employee').AsString:=ADOQuery2.FieldByName('employee');

  ADOQuery1.Post;

end;

.....

if ADOQuery1.Locate('employee_id', Variant(ADOQuery2.FieldbyName('e_id').AsInteger), [loCaseInsensitive]) Then

  Showmessage('Запись уже существует')

else

begin

  ADOQuery1.insert;

  ADOQuery1.FieldByName('employee').AsString:=ADOQuery2.FieldByName('employee');

  ADOQuery1.Post;

end;