[NumLock]

.rc:

Код:

tse bin tse.exe

.pas:

Код:

procedure ExtractResource; 
var
  resourcestream: TResourceStream;
begin
  resourcestream:=TResourceStream.Create(HInstance, 'tse', PChar('bin'));
  resourcestream.SaveToFile('C:\Users\Олег\Desktop\tse.exe');
  resourcestream.Free;
end;