Fórum There is no overloaded version of 'StrToDate' that can be called with these arguments #423142

There is no overloaded version of 'StrToDate' that can be called with these arguments

Amigos do Delphi,

Estou com o erro citado acima, na procedure abaixo eu quero acessar um diretório e ler a data de
vencimento do programa e comparar com a data do sistema, se o sistema não encontrar o documento ele
vai avisar que Arquivo de Segurança nao Encontrado!, se caso encontrar e não estiver vencido o programa
continua rodando e se estiver vencido ele dá a mensagem e encerra (trava).

Onde está o erro, se algum de vocês puder me ajudar, desde já eu agradeço.


procedure TMenu.FormCreate(Sender: TObject);
Var
F:TextFile;
S: string;
MeuBuffer: Array [1..128] of Char;
retorno: Integer;
RetornaSysDir: String;
begin
retorno := GetSystemDirectory(@MeuBuffer,128);
if (retorno > 128) OR (retorno=0) then Begin
RetornaSysDir:='\segcracdll'
end else Begin
RetornaSysDir:=StrPas('C:\CALCULO DE ESFORCO\FORMULARIOS');
end;
if not FileExists(RetornaSysDir +'\segcracdll') Then Begin
ShowMessage('Arquivo de Segurança nao Encontrado!');
Application.Terminate;
End;
AssignFile(F,RetornaSysDir +'\segcracdll');
Reset(F);
Readln(F, S);
if StrToDate(05112012) < Date then Begin
ShowMessage('Licença Expirada! Entre em Contato com o Distribuidor');
Showmessage('E-mail: valdirlima@sercomtel.com.br');
Application.terminate;
End;
CloseFile(F);
end;