You have to declare an AnsiString first, since now there is a native UNICODE support on Delphi 2009. Like in this example :

procedure Dummy;
var
name : AnsiString;
begin
name := 'Projet SDL';
SDL_WM_SetCaption(PAnsiChar(name), nil);
end;