Посмотрите мои код на Делфи (Азбука Морзе)

[darla1991]

Вот сам код. Гляньте, пожалуйста и подскажите....
Препод посмотрел и сказал, что должно быть "Пауза между элементами одного знака — одна точка, между знаками в слове — 3 точки, между словами — 7 точек." А у меня этого нет.... Объясните как это добавить в код? Спасибо

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s,t:string;i,j:integer;
begin
s:=edit1.Text;
for i:=1 to length(s) do
begin
case s[i] of
'А','а', 'A','a':t := '.-';
'Б','б', 'B','b':t := '-...';
'В','в', 'W','w':t := '.--';
'Г','г', 'G','g':t := '--.';
'Д','д', 'D','d':t := '-..';
'Е','е', 'E','e':t := '.';
'Ж','ж', 'V','v':t := '...-';
'З','з', 'Z','z':t := '--..';
'И','и', 'I','i':t := '..';
'Й','й', 'J','j':t := '.---';
'К','к', 'K','k':t := '-.-';
'Л','л', 'L','l':t := '.-..';
'М','м', 'M','m':t := '--';
'Н','н', 'N','n':t := '-.';
'О','о', 'O','o':t := '---';
'П','п', 'P','p':t := '.--.';
'Р','р', 'R','r':t := '.-.';
'С','с', 'S','s':t := '...';
'Т','т', 'T','t':t := '-';
'У','у', 'U','u':t := '..-';
'Ф','ф', 'F','f':t := '..-.';
'Х','х', 'H','h':t := '...';
'Ц','ц', 'C','c':t := '-.-.';
'Ч','ч':t := '---.';
'Ш','ш':t := '----';
'Щ','щ', 'Q':t := '--.-';
'Ь','ь', 'Y':t := '-..-';
'Ы','ы', 'X':t := '-.--';
'Э','э':t := '..-..';
'Ю','ю':t := '..--';
'Я','я':t := '.-.-';
'1':t := '.----';
'2':t := '..---';
'3':t := '...--';
'4':t := '....-';
'5':t := '.....';
'6':t := '-....';
'7':t := '--...';
'8':t := '---..';
'9':t := '----.';
'*':t := '-----';
'.':t := '......';
',':t := '.-.-.-';
':':t := '---...';
';':t := '-.-.-';
'(':t := '-.--.-';
')':t := '-.- -.-';
'?':t := '..--..';
'!':t := '.--.-.';
'-':t := '-....-';
end;
memo1.Text:=memo1.Text+' '+t;
memo1.Refresh;
for j:=1 to length (t) do
if t[j]='.'
then
begin
windows.Beep(1000,200);
sleep(200);
end
else
if t[j]='-'
then
begin
windows.Beep(1000,600);
sleep(200);
end;
sleep(400);
end;
showmessage('Текст воспроизведен в формате Морзянки и записан');
end;
end.

Насколько я поняла это должен быть еще один sleep?