// Text in einzelne Zellen schreiben 
var 
  s: string; 
  zeile, spalte: integer; 
begin 
  s := 'TEST'; 
  zeile := 2; 
  spalte := 3; 
  F1Book1.endedit; 
  F1Book1.textrc[zeile, spalte] := s; 
end; 
 
// Text (auch Zahlen als Text) aus Zellen lesen 
var 
  s: string; 
  zeile, spalte: integer; 
begin 
  zeile := 2; 
  spalte := 3; 
  F1Book1.endedit; 
  s := F1Book1.entryrc[zeile, spalte]; 
end; 
 
// Einen String über mehrere Spalten verteilen 
var 
  StartZeile, StartSpalte, zeilen, spalten: integer; 
  txt: WideString; 
begin; 
  Startzeile := 2; 
  Startspalte := 1; 
  txt := 'Schau'#9'mer'#9'mal'#9'was'#9'da'#9'so'#9'passiert'; 
  F1Book1.endedit; 
  F1Book1.SetTabbedText(Startzeile, Startspalte, zeilen, spalten, true, txt); 
  label1.caption := 'Der Text wurde in ' + inttostr(zeilen) + ' Zeile(n) und ' 
    + inttostr(spalten) + ' Spalte(n) verteilt'; 
end; 
 
// Zahlen und Formeln eintragen 
var 
  Formel: WideString; 
begin; 
  Formel := 'B1+B2'; 
  F1Book1.endedit; 
  F1Book1.NumberRC[1, 2] := 15; 
  F1Book1.NumberRC[2, 2] := 30; 
  F1Book1.TextRC[3, 1] := 'Summe:'; 
  F1Book1.FormulaRC[3, 2] := Formel; 
end; 
 
// Zahlen auslesen 
var 
  erg: double; 
begin 
  with F1Book1 do begin 
    endedit; 
    erg := NumberRC[1, 2] / NumberRC[2, 2]; 
  end; 
end;