[[egostar]]

Bueno, aún no entiendo si esto tiene que ver con SQL, pero eso que quieres se puede hacer de esta forma, por supuesto una de tantas que puede haber.....

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Indice : Integer;
  Cadena: String;
begin
  Indice := Pos(',',Edit1.Text);
  Cadena := Edit1.Text;
  Delete(Cadena,1,Indice-1);
  Insert('9999',Cadena,1);
  Edit1.Text := Cadena;
end;

Salud OS