Plötzlich Invalid typecast - aber ich hab nichts geändert

[easteregg]

Ich bin grad voll gestresst.

War gerade dabei, für mein Projekt den Client in der Version 1.0 fertig zustellen, hatte mich schon gefreut, dass ich die Arbeit hinter mir habe und plötzlich gings los!

in dem codestück

Delphi-Quellcode:

function winampsong(): string;
var
  hWinAmp : HWND;
//  buffer: array[0..MAX_PATH] of char;
  len : integer;
  Song : String;
begin
      hWinAmp := FindWindow('Winamp v1.x', nil);
          if hWinAmp <> 0 then
          begin
            // Winamp-Fenster gefunden, auslesen
            Len := SendMessage(hWinAmp, WM_GETTEXTLENGTH, 0, 0);
            SetLength(Song, Len);
            SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(Song));
          end;
      len:=length(song);
      if len = 0 then song:='Winamp closed';
      result:=song;
end;

medelt der plötzlich in der zeile "Invalide Typecast"

SendMessage(hWinAmp, WM_GETTEXT, Len + 1, Integer(Song)); Allerdings habe ich rein gar nichts an dem codestück verändert, das tritt aber plötzlich in allen möglichen funktionen und proceduren im gesammten quellcode auf, obwohl ich die betreffenden pas-datein nichtmal geöffnet hatte!

Kann mir da jemand helfen?
ich weis absolut nichmehr weiter!

gruß Richard