ya cambie aqui el componente en lugar de un dbgrid ahora estoy usando un stringgrid y quiero agregarle datos mediante un edit al darle enter la primera vez si lo logro y me manda la informacion pero la segunda vez la manda pero me sustituye el valor que ya tenia y lo que quiero es que los vaya poniendo como en una lista a continuacion pongo el codigo que estoy usando para tal cosa a ver si me pueden ayudar
Código Delphi
[-]procedure TForm2.codigoKeyPress(Sender: TObject; var Key: Char);
begin
STRINGGRID1.Cells[STRINGGRID1.Col,STRINGGRID1.Row]:=codigo.Text;
end;