[mpdasa]

Разобрался. Надо было поиграться с таймерами, когда какой включать/выключать.

Кому интересен код:

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
Timer2.Enabled:=true;
k_vo_strok_dictionary:=dictionary.Lines.Count;
randomize;
x:=random(k_vo_strok_dictionary);//выбераем случайную строку

stroka:=dictionary.Lines[x];
P:=Pos(z_skobka, stroka);{номер символа разделения
санскритского слова и перевода}
san_slovo:=copy(stroka,2,p-2);//копируем сан. слово
RichEdit1.Text:=san_slovo;//вставляем сан. слово
RichEdit2.Text:='';
Dlinna_stroki:=length(stroka);{нужно чтобы
правильно скопировать перевод}
perevod:=copy(stroka, p+2, Dlinna_stroki-p);//копирую перевод
Timer1.Enabled:=false;
end;

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer2.Enabled:=false;
RichEdit2.Text:=perevod;//вставляю перевод
end;

И FormShow и Button1.click взят в таймер