StringGrid: Nach Eingabe eines Zeichens weiterspringen

[Helmi]

Hallo,

ich brauch mal wieder eure Hilfe.

Ich habe eine StringGrid, bei der in jede Zelle nur ein Zeichen eingegeben werden kann.

Delphi-Quellcode:

procedure TForm2.StringGridSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  If length(Value) > 1 then
    StringGrid.Cells[ACol, ARow] := Value[1];
end;

Nun würd ich aber gerne eines machen, wenn man auf eine Zelle klickt, so dass man etwas eingeben kann, man etwas reinschreibt, das länger als ein Zeichen ist, dass dann die anderen Zeichen auf die folgenden Zellen geschrieben wird.

z. B. ich schreib in die Zelle [0, 0] das Wort "Hallo" rein, dann soll in der Zelle
[0, 0] ein H
[1, 0] ein a
[2, 0] ein l
[3, 0] ein l
[4, 0] ein o

stehen.

Wie kann ich das realisieren?