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

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;