Memo komponente Buchtaben auslesen,warten,weiterauslesen

[Jab]

Hallo ich habe folgendes Problem

Ich möchte jeden einzelnen Buchstaben aus einer Memo-Komponente auslesen, also z.B.

(im Memo steht): sadfdsfa

dann (in der selben Dialogbox) unten in ein Säulendiagramm jeweils für s:20% einfügen, dann eine Sekunde warten (säulendiagramm wieder auf 0% setzen,nächsten Buchstaben auslesen), dann für a:10% einfügen (säulendiagramm wieder auf 0% setzen,nächsten Buchstaben auslesen), warten, dann für d:30% einfügen (säulendiagramm wieder auf 0% setzen,nächsten Buchstaben auslesen), ...warten, usw...


Das Problem ist nun, wie schaffe ich es das Delphi einen Buchstaben ausliest, dann z.B. "Gauge1.Progress := (Gauge1.Progress + 20);" macht und erst nach einer Sekunde weiterarbeitet...
Auch soll delphi das automatisieren also z.B. IMMER für s:20% eingeben...

Ich hoffe ihr versteht das was ich da geschrieben hab...
Vielen Dank im voraus...