A:

begin
  with table1 do begin
    first;
    while not eof do begin
      if FieldByName('company').AsString = edit1.text then begin
        ShowMessage('Found it!');
        break;
      end
      else next;
    end;
  end;
end;