Si el problema es que no sale la coma, sustituye esta línea
Código Delphi
[-]
query1.SQL.Add('set Numer = Numer + ' + QuotedStr(Edit3.text));
por esta
Código Delphi
[-]
query1.SQL.Add('set Numer = Numer + ' QuotedStr(', ') + ' + ' + QuotedStr(Edit3.text))