ActiveDelphi

[gabipmor]

Olá pessoal. Sou nova no fórum, n sei como funciona direito, mas preciso de ajuda com uma mensagem de erro.

A mensagem é:
[Error]Unit1.pas(90): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Ele acusa esse erro na linha do if (negrito). E aqui está a programação:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text := chr(39) + chr(39) or Edit3.Text := chr(39) + chr(39) or Edit4.Text := chr(39) + chr(39) or Edit5.Text := chr(39) + chr(39) or Edit6.Text := chr(39) + chr(39) or Edit12.Text := chr(39) + chr(39) then
showmessage ('Preencha todos os campos obrigatórios antes de prosseguir.')
else
tblContato.Append;
tblContato['COD_CCONT'] := Edit1.Text;
tblContato['NOME_CCONT'] := Edit2.Text;
tblContato['COD_CEMPR'] := Edit3.Text;
tblContato['COD_CARG'] := Edit4.Text;
tblContato['DDD_COM_CCONT'] := Edit5.Text;
tblContato['TEL_COM_CCONT'] := Edit6.Text;
tblContato['RAMAL_CCONT'] := Edit7.Text;
tblContato['DDD_CEL_CCONT'] := Edit8.Text;
tblContato['TEL_CEL_CCONT'] := Edit9.Text;
tblContato['EMAIL_CCONT'] := Edit10.Text;
tblContato['DAT_CADASTRO_CCONT'] := Edit11.Text;
tblContato['COD_SWMS'] := Edit12.Text;
tblContato['PREV_IMPL_WMS_CCONT'] := ComboBox1.Text;
tblContato['COD_SERP'] := Edit13.Text;
tblContato['COD_BANDA'] := Edit14.Text;
tblContato.Post;
tblContato.Refresh;
end;

Muito obrigada desde já!

[adriano_servitec]