var
myComponentes: TList;
begin
myComponents := TList.Create;
myComponents.Add(Memo1);
myComponents.Add(Memo2);
myComponents.Add(Memo3);
myComponents.Add(Memo4);
for iCount=0 to myComponents.Count - 1 do
begin
if myComponents[iCount] is TMemo then
TMemo(Components[i]).Text:= Caracter;
end;
myComponents.Free;
end;