Podwojne dodawanie do memo

Ma taki kod:

procedure TMainForm.radioClick(Sender: TObject);
begin
radio2.OnClick(MainForm);
Memo.Lines.Add('text dodawany o memo...');
end;

Jedank po kliknieciu na radio text w memo wypisuje 2 razy... A co dziwniejsze wypisuje tak: za pierwszym razem 2, potem 1, znowu jedno, wcale... Dalej juz mi sie nie chcialo sprawdzac... Znaktos powod, albo jak mozna temu zaradzic..

Przenieś to do innego zdarzenia np. mouseup.

Dla jednego radio przypisz jakąś procedure, a dla drugiego w OnClick wybierz z listy tą samą, będzie ona dla obydwu RadioB.
Aby rozróżnić który radio ją wywołuje ort! z Sender.