Przypisanie wartości do kontrolki.

Witam

Mam taki kod

procedure Tfaktf.dekretujExecute(Sender: TObject);
begin

 
    form30.cbkn.ItemIndex := 0;
    form30.eds.Clear;
    form30.eda.Clear;
    form30.edb.Clear;
   
    form30.edm.Text := IntToStr(dm.qfbFBSTK.Value);
    form30.edk.EditLabel.Caption := 'Kwota PLN';


    if pagecontrol1.ActivePage = Fpozp then
        form30.edo.Text := dm.qfbFBOPD.Value
    else
        form30.edo.Text := 'Faktura ' + dm.fkFKROB.Value;

    if form30.ShowModal = mrOK then
    begin
       //
    end;
end;

Z jakiegoś dziwnego powodu linika form30.edo.Text := dm.qfbFBOPD.Value. raz działa raz nie. Sprawdzałem podczas debuggowania instrukcja wchodzi w warunek if następuje chcę przypisać nową wartość do form30.edo.Text ale ten i tak pamięta wartość starą a nie nową. Gdy wyłącze właściwość Application.ModalPopupMode := pmAuto;. Program działa poprawnie, ale wtedy forma, która powinna być na wierzchu jest pod spodem.

Przygotowałem próbkę. Oraz kolejność wykonywania.

1. przycisk Pokaż dane
2. przycisk Dekretuj
3. przycisk OK
4. Zamykam formę.
5. Zmieniam pozycję na ID 2 Opis b
6. przycisk Dekretuj

Za drugim razem w formie Dekretuj powinien być tekst "Opis 2.1.a" a nadal pamięta stary "Opis 1.1.a"

nie chcę Cię martwić ale u mnie działa

WAŻNE: musisz mieć zaznaczony drugi rekord na głównej formie (trójkąt po lewej stronie przy drugim rekordzie)

Ja dostaje taki efekt
zamiast Opis 2.1.a

Drugi screen jak dołożyłem Memo gdzie jest prawidło

.

Do obu komponentów przypisuje tą samą wartość

procedure TfDane.btnDekretujClick(Sender: TObject);
begin
    fDekretuj.RichEdit1.Text := dm.qDaneOpis.Value;
    fDekretuj.Memo1.Text := dm.qDaneOpis.Value;
    if (fDekretuj.ShowModal = mrOK) then
    begin
        //       ShowMessage('s');
    end;
end;