Autopreenchimento da tabela

Boa tarde parceiros,

Estou precisando de uma ajuda de vocês...
Tenho que preencher todos os campos que permanecerem em branco dentro de uma tabela de forma a não ficar nenhum vazio. Todos os campos são do tipo TEXT, e se o usuário não preencher um deles, automaticamente será assumido o valor " ( ===== ) ".

Estou tentando usar o seguinte código, porém, sem êxito.

procedure Tdm_.QryMateriasBeforePost(DataSet: TDataSet);
Var
X: Integer;
begin
for X := 0 to (dm_.QryMaterias.FieldCount-1) do
begin
if (dm_.QryMaterias.Fields[X].AsString = '') then
dm_.QryMaterias.Fields[X].Text := '( ===== )';
end;
end;

Se alguém aí puder me ajudar, ficarei muito grato....


Att.,
LUCK.