エリアクリア

for i:=1 to ComponentCount-1 do begin
if Components[i] is TEdit then TEdit(Components[i]).Text :=”;
if Components[i] is TSsEdit then TSsEdit(Components[i]).Text :=”;
if Components[i] is TMemo then TMemo(Components[i]).Text :=”;
if Components[i] is TplDateEdit then TplDateEdit(Components[i]).SetEditEmpty;
end;