需要有关学习delphi6.0的小程序，请朋友们帮忙

本人刚刚开始学习delphi用的是6.0的程序，相找一个有关对数据操作的小程序，功能包括，保存、简单的查询、删除功能即可。哪位朋友有的话请和我联系一下QQ:534077435在线等候，万分感谢！！！！！
主要是需要代码不是安装程序！！！谢谢！！！

我这里有源代码:

//在相应的按钮下插入下列代码即可实现:

//添加代码
if ((edit1.Text='') or (edit2.text ='') or (edit3.text ='')) then
showmessage('添加资料不能为空');
if messagedlg('确定添加?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
with query1 do
begin
close;
sql.clear;
sql.add('insert into op(name,address,email) values(:name,:address,:email)');
parambyname('name').asstring := trim(edit1.text);
parambyname('address').asstring := trim(edit2.text);
parambyname('email').asstring := trim(eidt3.text);
try
execsql;
fianlly
showmessage('error!');
end;
end;

//查询功能:
with query1 do
begin
close;
sql.clear;
sql.add('select * from op where name =:name');
parambyname('name').asstring := trim(edit1.text);
open;
if recordcount = 0 then
showmessage('查找记录不存在!');