Loop na Tabela

Caros Colegas;

Neste script abaixo demonstra como fazer um loop na tabela e editando o registro ao mesmo tempo.

Sei que é possível efetuar esta edição sem usar este loop, usando o comando Sql, alguém pode me ajudar como faço isso?
Uso Delphi 7 com FireBird.


Table1.First;
While not table1.Eof do //loop
begin
Table1.Edit;
Table1.FieldByName('CAMPO').AsString := 'S';
Table1.Post;
Table1.Next
End;

fico no aguardo