[Resolvido] Warning

Tenho uma unit que exporta para a o formato PDF no delphi 7 e 2007 funcionava perfeitamente porem na versão 2009(É a que eu ultilizo)

esta coms o seguinte warning em uma função se alguempuder me ajudra eu agradeço.

function OneDecPtStr ( _num : {$ifdef Pascal}Real{$else}Extended{$endif} ) : String;

var _s : String;

begin

Str ( _num:0:1, _s );

while ( Length ( _s ) >= 01 ) and ( Pos ( Copy ( _s, Length ( _s ), 01 ), '.0' ) >= 01 ) do

 Delete ( _s, Length ( _s ), 01 );

 if Length ( _s ) = 0 then _s := '0';

 OneDecPtStr := _s;

end;

[DCC Warning] PDF.pas(562): W1057 Implicit string cast from 'ShortString' to 'string'