请教一个问题？请前辈指教！(50分)

记录鼠标和键盘的事件，并将结果生成一个Txt文件保存在硬盘上。
想知道如何实现，最好能给出详细一点的代码，尤其是怎样保存成Txt文件，希望能写的详细点，谢谢！
（刚刚登录的没有多少分先给50吧，怕没有分问问题了，希望别闲少。[]）

var
writein: TIniFile;
temptextfile: TextFile;
str: string;
begin
writein:=TIniFile.create('Test.ini');
assignfile(temptextfile,'Test.ini');
str:=ConnectionString.Text;
if str<>'' then
begin
rewrite(temptextfile);
writeln(temptextfile,str);
closefile(temptextfile);
end;