Insertar Texto A Celdas Seleccionadas En Dbgrid

[Aliixeess]

Hago la conexion mediante zconnection, es un AdvstringGrid y en este mismo ya encontré como obtener las celdas seleccionadas:

procedure TfrmCalendariote.Button1Click(Sender: TObject);
var
inicioColumna, FinColumna, inicioFila, finFila : integer;
begin
with stringDia.Selection do
begin
inicioColumna := Left;
FinColumna := Right;
inicioFila := Top;
finFila := Bottom;
ShowMessage(Format('Desde, col: %d row: %d', [inicioColumna,inicioFila]) + #10 + Format('Hasta, col: %d row: %d', [finColumna, finFila]));
end;
end;

Ya solo falta llenar las celdas.