применить код ко множеству компонентов

я извиняюсь, видимо, за такие вопросы, ибо совсем начинающий, а в имеющейся под рукой литературе не найду ответа на свой вопрос.
Я пишу первую самостоятельную и сложную (для меня) программу и у меня есть код:
procedure TForm1.Edit41KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8:
else
Key:=Chr(0);
end;
if Length(Edit41.Text)=0 then Edit42.SetFocus;
end;
Вопрос такой: У меня таких компонентов (Edit41) 20 штук. Как можно не переписывать код для 20 компонентов, а уместить их в одну процедуру. Я знаю есть какое-то свойство Tag, но у меня применить его не выходит..
И второй вопрос:
у меня есть 4 компонента edit. Я проделываю с ними простую фигню:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Memo2.Lines.Clear;
Memo2.Lines.Add(Edit1.Text);
end;
смысл тот, что я пытаюсь синхронизировать ввод в edit с вводом в memo.
Но затем мне нужно создать Edit2Change с тем, чтобы текст из edit2 прибавился в строчку к edit1.
И кроме того, нужно будет еще edit3 с таким же синхронизированным вводом, но его нужно запихать в memo строкой ниже так, чтобы edit1 и edit2 не стерлось. Еще раз извиняюсь за видимо очевидные вопросы.. .