Problema ao gravar num mdb Access

Pessoal olha só eu criei um MDB do access com a seguinte tabela

Cadastro

dentro dessa tabela tem os seguintes campos

Cod, Nome, Preço, Fornecedor

montei um programinha pra poder fazer o cadastro de produtos desta empresa, olha o código q fiz pra salvar os arquivos digitados acho q o erro está ae

=============================================
var
sql_statement: PChar;
begin
// Monta uma instrução SQL para inserir dado na tabela Cadastro
sql_statement := PChar (´INSERT INTO Cadastro VALUES (´ + #39 +
EDT_Cod.Text + 39 + ´,´ + 39 + EDT_Nome.Text + 39 + ´,´ +
39 + EDT_Preco.Text + 39 + ´,´ + 39 + 39´);´);
RetCode := SQLAllocHandle (SQL_HANDLE_STMT, conn, @stat);
RetCode := SQLExecDirect (stat, Pointer (sql_statement), strlen (sql_statement));
if (RetCode <> SQL_SUCCESS) and (RetCode <> SQL_SUCCESS_WITH_INFO) then
Application.MessageBox (´Falha ao efetuar o cadastro!´, ´Brasil Pedras´, MB_OK)
else
Application.MessageBox (´Cadastro efetuado com sucesso!´, ´Brasil Pedras´, MB_OK);
// Libera o handle alocado para o comando
SQLFreeHandle (SQL_HANDLE_STMT, stat);
end;
end;
end.
===============================================

depois q compilo ele no delphi 7 e coloco algum cadastro e clico para salvar aparece Falha ao efetuar o cadastro