做投票系统,请各位大侠给点思路,虚心求教!!(100分)

做投票系统,请各位大侠给点思路,虚心求教
有类似例子吗?在网络上找了一天,大多都是成品的,求教!!谢谢先

： 提交按钮代码不会写了,提示投票成功的同时，数据库方面也有相应的变化,如:给谁投票,谁的票数就加1,然后显示统计,
请大家帮忙,虚心求教!谢谢先

procedure TTPGL.BitBtn1Click(Sender: TObject);
var
name:string;
begin
datasetbroker1.DataSet.RecNo:= radiogroup1.ItemIndex;
name:=datasetbroker1.DataSet.FieldByName('姓名').AsString;
if name <>'' then
begin
with query1do
begin
Close;
query1.CommandText:='update 数据表1 set ps=ps+1 where 姓名 = ''姓名''';
open;
end;
end;
end;

请大侠帮忙看看,提交按钮代码这样写行不?

路过的帮忙看下,
有相关例子的分享下，万分感激!!