Convertir de un formato de fecha en string a TDateTime

[fide_uci]

Si claro. Disculpenme por no poner algo de codigo. Aca les dejo la funcion que hice que lo que hace es cojer un archivo de texto con la siguiente extructura y devolver un idMessage con los datos ya incluidos.

Aca los datos del fichero que tengo que leer.

usuario <[email protected]> //De
usuario <[email protected]> //Para
prueba //Asunto
Wed, Jul 22, 2009 at 1:05 AM //Fecha (Aca es donde no consigo convertir a TDateTime)

Esto es un ejemplo de lo que seria el contenido
del correo en el mensaje enviado.

Aca la funcion.

Código Delphi [-]
procedure TForm1.GetMessageFromTXT(pFileName: string; var pIdMessage: TIdMessage);
var
  vStringList: TStringList;
  vDateTime: TDateTime;
begin

  vStringList := TStringList.Create;

  //Formateando la Fecha/Hora

  {The following example:

      S := FormatDateTime('"The meeting is on" dddd, mmmm d, yyyy, ' +
        '"at" hh:mm AM/PM', StrToDateTime('2/15/95 10:30am'));

    assigns 'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' to
    the string variable S. }

  LongDateFormat := 'ddd, mmm d, yyyy "at" hh:mm AM/PM';
  ShortDateFormat := 'ddd, mmm d, yyyy "at" hh:mm AM/PM';

  try
    vStringList.LoadFromFile(pFileName);

    pIdMessage.From.Text := vStringList.Strings[0];
    pIdMessage.Recipients.Add.Text :=  vStringList.Strings[1];
    pIdMessage.Subject := vStringList.Strings[2];

    //Fecha/Hora
    {if TryStrToDateTime(vStringList.Strings[3], vDateTime, vFormatSettings) then
      pIdMessage.Date := vDateTime
    else
      ShowMessage('Explote aqui: ' + vStringList.Strings[3]);}

    vDateTime := StrToDateTime(vStringList.Strings[3]);

    pIdMessage.Date := vDateTime;    

    vStringList.Delete(0);
    vStringList.Delete(0);
    vStringList.Delete(0);
    vStringList.Delete(0);
    vStringList.Delete(0);

    pIdMessage.Body.Text := vStringList.Text;

  finally
    vStringList.Free;
  end;

end;