Задачка №4

Что не так в следующем коде?

function DoSomethingW(const AStr: PWideChar): Integer; stdcall;
var
  S: WideString;
begin
  S := AStr;

  if (S <> '') and SomeCondition then
    Result := Length(S)  // положим, это и есть реальная работа
  else
  begin
    SetLastError(ERROR_INVALID_PARAMETER);
    Result := 0;
  end; 
end;

Объяснить, в чём косяк и как можно исправить.

Ответ - как обычно, примерно через месяц.

Ответ.