Extraer Recurso y mostrar mensaje al finalizar

[LuKa$]

Hola,alguien me puede ayudar con lo siguiente:
Tengo el siguiente codigo para escribir mi recurso en disco,lo que deseo es mostrar un mensaje cuando finalize de escribir todo el recurso,
pero mi código no lo hace de manera correcta muestra el mensaje pero el archivo sigue escribiendo en disco.

PD: el archivo que tengo como recurso en mi ejecutable pesa un poco más de 30MB.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  archivo: TResourceStream;
Begin
  archivo := TResourceStream.Create(hInstance, pChar('INFO'), RT_RCDATA);
  archivo.Seek(0, soFromBeginning);
  archivo.SaveToFile('C:\....\Desktop\Dato.dat');
  archivo.Free;
Showmessage('el archive se término de escribir');
end;

Agradezco de antemano su apoyo y atención.