[Yurk@]

Код:

Table1.First;
while Table1.Eof do
begin
if Table1.FieldByName('RAST').Integer<=200 
 then 
  begin
  Table1.Edit;
  Table1.FieldByName('PEREVOZ').String:='Компания';
  Table1.Post;
  end;
Table1.Next;
end;

А дальше в том же духе!