Fórum Comparar dados para auditoria... #447683

Eu tenho um formulário "ESTAGIARIOS" com 5 edits. Tenho uma tabela "ESTAGIARIOS" com 5 campos. Quando eu peço pra editar um registro, dou um comando que coloca cada campo da tabela num edit do formulário como por exemplo:

Edit01 := Campo01
Edit02 := Campo02
Edit03 := Campo03
Edit04 := Campo04
Edit05 := Campo05

No final, ao solicitar o fechamento do formulário o programa terá que comparar o valor de cada edit, como o respectivo campo na tabela, e se algum dos edits possuir um valor diferente do seu respectivo campo na tabela, uma tabela chamada AUDITORIA receberá o registro desta alteração. Estou fazendo algo parecido com isso:

If (Edit01.Text) < (QueryCampo01.Text) then
begin
QueryAuditoria.Append;
QueryAuditoriaData.Value := Edit01.Text;
QueryAuditoriaTabela.Text := Edit02.Text;
QueryAuditoriaInfoAntiga.Text := Edit03.Text;
QueryAuditoriaInfoNova.Text := Edit04.Text;
QueryAuditoriaOperador.Text := Edit05.Text;
QueryAuditoria.Post
end;

If (Edit02.Text) < (QueryCampo02.Text) then
begin
QueryAuditoria.Append;
QueryAuditoriaData.Value := Edit01.Text;
QueryAuditoriaTabela.Text := Edit02.Text;
QueryAuditoriaInfoAntiga.Text := Edit03.Text;
QueryAuditoriaInfoNova.Text := Edit04.Text;
QueryAuditoriaOperador.Text := Edit05.Text;
QueryAuditoria.Post
end;

If (Edit03.Text) < (QueryCampo03.Text) then
begin
QueryAuditoria.Append;
QueryAuditoriaData.Value := Edit01.Text;
QueryAuditoriaTabela.Text := Edit02.Text;
QueryAuditoriaInfoAntiga.Text := Edit03.Text;
QueryAuditoriaInfoNova.Text := Edit04.Text;
QueryAuditoriaOperador.Text := Edit05.Text;
QueryAuditoria.Post
end;


... e por aí vai.

Mas acontece que tenho tabelas com 34 campos... Como fazer apra compara-los fielmente e mais facilmente.?

Desde já agradeço.