[lmikle]

Ой, мама дорогая...
Ну ты хоть в папочку Demos залез бы. Посмотрел бы как работать с компонентами доступа к данным.

Код:

procedure AddPC(AName : String);
begin
  DataModule1.ADOTable_Comps.First;
  While Not DataModule1.ADOTable_Comps.EOF Do
    Begin
      If DataModule1.ADOTable_Comps.FieldByName('compname').AsString = AName Then Exit;
      DataModule1.ADOTable_Comps.Next;
    End;
  DataModule1.ADOTable_Comps.Append;
  DataModule1.ADOTable_Comps.FieldByName('compname').AsString := AName;
  DataModule1.ADOTable_Comps.Post;
end;

Грубо, без дополнительных проверок и т.д., но идея должна быть понятна.