欲が出て簡単なインストーラを作りたいなと思いだしました。
リソースにファイルのアーカイブしたのを入れて実行したら
指定したディレクトリに解凍してレジストリの設定するような簡単なものです。
という事で出来るだけ本体は小さくしたい、20K代が目標です。
このサイズは、
SysUtils と Classesを使わずに作らないとやっぱり難しいようです。

という事で、既にファイルがあるかどうか調べる FileExist置換用の関数

function FileExist(fname:string):boolean;
var FindData: TWin32FindData;
begin
　Result:= FindFirstFile(PChar(fname), FindData) <> INVALID_HANDLE_VALUE;
end;