Вывести время работы процедуры

[celest]

Программа шифрует текст методом Плейфера. Нужно вычислить время работы процедуры шифрования.

procedure TPlafer.Button1Click(Sender: TObject);
  var t1,t2:TDateTime;
begin
  t1:=Now;
     Memo.Text := Playfair_Crypt(Memo1.Text,Edit2.Text);
 t2:=Now;
   Memo4.Lines.Add(IntToStr(MilliSecondsBetween(t1,t2))+' ms');
end;

В memo4 не выводится время при зашифровке файла.
Дело в том, что этот способ работает в шифре Атбаш

procedure TAtb.BitBtn8Click(Sender: TObject);
var t1,t2:TDateTime;
begin
  t1:=Now;
 atbash.Execute;
 t2:=Now;
 Memo5.Lines.Add(IntToStr(MilliSecondsBetween(t1,t2))+' ms');
end;

Тут все работает и выводится время работы, а вот в шифре Плейфера Мемо остается пустым.
Подскажите, где ошибка?

[Serge_Bliznykov]

зрительно я никаких "косяков" не вижу.
попробуйте пройтись в отладчике пошагово
поставьте точку останова на

• Memo.Text := Playfair_Crypt(Memo1.Text,Edit2.Text);)

и пройдитесь по шагам...

p.s. либо выложите архив с исходниками проекта, чтобы можно было посмотреть, куда у Вас время девается...