[Jcg-Guirola]

Ah disculpa la demora, problemas con el internet , mira que fácil, yo después de revisar lo que había descargado lo habia hecho de la siguiente forma(un poco más complicado):

function SpecialFolder(Folder: Integer): String;
var
SFolder : pItemIDList;
SpecialPath : Array[0..MAX_PATH] Of Char;
begin
SHGetSpecialFolderLocation(ayudas.Handle, Folder, SFolder);
SHGetPathFromIDList(SFolder, SpecialPath);
Result := StrPas(SpecialPath);
end;


procedure TAyudas.Ayuda1Click(Sender: TObject);
var
Recursos: TResourceStream;
hFind, hRes: THandle;
url:string;

begin
url:=SpecialFolder(CSIDL_APPDATA)+'\Ayuda.mht';
Recursos := TResourceStream.Create(hInstance, 'RES_MAPCODE', RT_RCDATA );
Recursos.Seek( 0, soFromBeginning );
recursos.SaveToFile(URL);
webbrowser1.Navigate(URL);

// con esto no lo guardo en los archivos temporales, sino e la appdata del usuario
//ha y debe agregarse ,Shlobj en uses
end;