Un ejemplo de como saber si un campo existe o no:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
bExiste:Boolean;
begin
bExiste:=False;
For n:=0 to Query1.FieldCount -1 do
begin
If (query1.Fields[n].DisplayName) = 'Fecha' then
bExiste:=True;
end;
if bExiste = True then
ShowMessage('el campo existe no crearlo.');
end;
Un Saludo.