Text bei Cursor??? DelphiXE

[Beck93]

Oke dann ob noch kein Text hinter dem Cursor steht

Zu den näheren Informationen:

Ich habe ein Word dokument mit einer Tabelle. In der ersten Zelle ist eine Textmarke an die ich springe nach dem öffnen des Dokumentes.
Nun will ich wissen ob in dieser Zelle schon Text steht oder noch nicht?
Wenn Text vorhanden ist gehe ich eine Zelle nach unten und möchte dort wieder auf vorhandenen Text Prüfen?

Ich hoffe Das hilft ein wenig.

Danke

Gruß
Beck93

Hier noch nachträglich ein Ausschnitt aus dem Quelltext vieleicht hilft das auch.

Code:

 
  try
    WordObj := ComObj.CreateOleObject('Word.Application');
    WordObj.documents.open(Exe);
    Doc := WordObj.ActiveDocument;
  except
    ShowMessage('Die Datei konnte nicht geöffnet werden!');
    Exit;
  end;

  if Doc.Bookmarks.Exists(Bookmark) then
  begin
     Doc.Bookmarks.Item(Bookmark).Select;
    for I := 6 to 24 do
    begin
     if WordObj.Selection.Find.Text = '' then  //hier ist der Fehler
      begin
        leer := true;
        if Form1.edtDatumBis.Text = Form1.edtDatumVon.Text then
          WordObj.Selection.TypeText(Text:= Form1.edtDatumVon.Text)
        else
        begin
          WordObj.Selection.TypeText(Text := Form1.edtDatumVon.Text + ' ' +
            Form1.edtDatumBis.Text);
        end;
        WordObj.Selection.MoveRight;