Author: Tomas Rutkauskas

Using a TDBEdit, I would like to achieve something like this on user input:
S ... (wait a few milliseconds) ... O ... (wait) ... M ... (wait) ... E

Answer:
1   
2   procedure SendtextToControl(control: TWinControl; const S: string; interval: 
3   Integer {milliseconds});
4   var
5     i: Integer;
6   begin
7     for i := 1 to Length(S) do
8     begin
9       control.perform(WM_CHAR, Ord(S[i]), 0);
10      control.Update;
11      if i < Length(S) then
12        Sleep(interval);
13    end;
14  end;