uses registry;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RunMRU', False) then
ShowMessage('El último comando ejecutar de este usuario fue: ' + reg.ReadString('a'));
finally
reg.Free;
end;
end;