Fórum Criar Arquivo do Winrar SFX pelo Delphi?? Dando ERRO #255651

Bom galera,

Já obtive algumas dicas de algumas pessoas.... mas não esta fumegando

o procendimento que estou usando é o seguinte...

procedure TFPrincipal.BitBtn1Click(Sender: TObject);
var
Dir:String;
begin
dir:=extractFilepath(application.exename)+´Dados\´;
if WinExec32(´winrar a Atualizacao -sfx -ep ´+dir+´Medico.gdb´, sw_show) then Showmessage(´achou´) else Showmessage(´n achou´);
end;

simplesmente não acontece nada, ou melhor, esta retornando false a função...

então se puderem me ajudar, agradeço desde já