[Gribok]

Доброго времени суток товарищи.
У меня вот какая проблема.
Я открываю файл

Код:

var
st:TMemoryStream;
begin
st:=TMemoryStream.create;
if OpenDialog1.Execute then
st.position:=0;
st.loadfromFile(OpenDialog1.FileName);
Memo1.Lines.LoadFromSTREAM(st);
ST.FREE;
end;

Вот мы записали в мемо1 данные из txt файла
Теперь в обработчике события
ONChange у компанента Memo1 у меня записан следующий код

Код:

IF Memo1.Text<>'' Then 
Memo3.Text:=BinToStr(AnsiStrToBin(Memo1.Text)) 
Else Memo3.Clear;
Label2.Caption:='Шифруемый текст: ('+IntToStr(Length(Memo1.Text))+' символов)';

Грубо говаря мы щитаем кол-во символов и выводим их в Label а так же в Memo3 выводим данные в бинарном виде

Это все рабеот но когда я отрываю файл в катором хотяб 5 тысяч символос это занимает время пока он пощиает все и тд

Как зделать чтоб сначала проверялось загрузился ли файл или нет а потом уже запускалась процедура ONChange Непонимающий?