procedure TfrmMain.txtPageLayout1EditingDone(Sender: TObject);
Var
xOld: Single; //the existing value set for testing
i: Integer;
x: Single;
begin
for I:=0 to ComponentCount - 1 do
if Components[i] is TEdit then
Begin
xOld:=15;
If LeftStr(Components[I].Name,14) = 'txtPageLayout1' Then
Begin
//The control of interest for checking
x:=StrToFloat(txtPageLayout1.Text);
If xOld <> x then ShowMessage('Layout1 was ' + xOld.ToString + ' Changed to ' + x.ToString);
End
end;
end;