[Gribok]

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

Код:

1 2 3 4 5 6 7 8 9 10

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 у меня записан следующий код

Код:

1 2 3 4

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

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

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

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