procedure TForm1.Save;
var
    E : TSynEdit;
    control : TControl;
begin
control := PageControl1.ActivePage.FindChildControl('E');
if control <> nil then
begin
    TSynEdit(control).Lines.SaveToFile(OpenDialog1.FileName);
end;