steht denn in Memo1.Text überhaupt etwas drin? Ersetze mal die folgende Zeile
VddTable1.FieldByName('Langtext').Value := Memo1.Text;
mit
VddTable1.FieldByName('Langtext').Value := 'hallo Welt';
Wenn jetzt immer noch nichts in Langtext drinsteht, gibt es eine größeres Problem, ansonsten stimmen einfach deine Routinen zur reformatierung des Textes nicht.
Wenn du nicht weiter kommst, extrahiere das ganze in ein kleines Projekt, packe es zusammen mit den Tabellen und lade es hier hoch. Vielleicht können wir dann gemeinsam debuggen
