[The Cid James]

Buenas gentes tengo el siguiente codigo

Código Delphi [-]
procedure Tfconfiguracion.Button1Click(Sender: TObject);
begin
 if edit1.text = edit2.text
  then
    begin
    fmodulo.tempresa.Active := true;
    fmodulo.tempresa.Edit;
    fmodulo.tempresa.Fields.FieldByName ('pas').AsString := CalcHash2(Edit1.Text, haMD5);
    fmodulo.tempresa.Post;
    application.MessageBox(pchar('Contraseña guardada exitosamente'),
    pchar('ERROR'), (MB_OK + MB_ICONINFORMATION))
    end
  else
    application.MessageBox(pchar('Las contraseñas no coinciden, intentte nuevamente'),
    pchar('ERROR'), (MB_OK + MB_ICONINFORMATION))
end;

Cuando quiero hacer el post me sale el siguiente error type mismatch for field expecting widememo actual widestring supongo que es por el tipo de campo en el que estoy guardando (en mi caso varchar (500)) pero he probado con varios y me tira diferentes errores que puede ser?