dephi插入PostgreSQL数据库的问题！

Question

请问一下，为什么我的这段程序插入数据库的时候会插入两条数据呢？
请大家帮我看一下程序！
procedure TTestForm1.insertClick(Sender: TObject);
var
  name,password,sex,tel,qq,email : string;
  SDQuery2 : TSDQuery;
begin
  name := QuotedStr('阿罗');
  password := QuotedStr('123');
  sex := QuotedStr('女');
  tel := QuotedStr('13488113171');
  qq := QuotedStr('280727904');
  email := QuotedStr('[email protected]');
  SDQuery2 := TSDQuery.Create(nil);
  SDQuery2.DatabaseName := TestForm1.test1.DatabaseName;
  try
  SDQuery2.SQL.Clear;
  SDQuery2.SQL.Add('insert into usertb values('+name+','+password+',25,'+sex+','+tel+','+qq+','+email+')');
  SDQuery2.Open;  ShowMessage('插入成功！');
  finally
  SDQuery2.Free;
  end;
  TestForm1.queryClick(SDQuery2);
end;

Answer 1

SDQuery2.Open; 
改為SDQuery2.execsql; 

Answer 2

改为：
SDQuery2.close;
SDQuery2.SQL.Clear; 
  SDQuery2.SQL.Add('insert into usertb values('+name+','+password+',25,'+sex+','+tel+','+qq+','+email+')'); 
  SDQuery2.execsql;