Obtenir le libellé de la dernière erreur

Uses SysUtils

//exemple
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(SysErrorMessage(GetlastError));
end;

//donner une erreur claire pour l'utilisateur
//exemple : l'application ouvre un fichier déjà ouvert
HFichier:=OpenFile(NomFichier,lpReOpenBuff,OF_SHARE_EXCLUSIVE);
if HFichier=HFILE_ERROR
then ShowMessage(SysErrorMessage(GetLastError));