Код:
function NoProbel(Par : String; i : integer = 1): string;
эту функцию можно заменить на стандартную StringReplace,
и для значений 1,0 есть тип Boolean
Код:
var
x:Boolean;
y:Integer;
begin
if x then //смотриться лучше чем
if y=1 then
end;
Длину строк у эдитов я бы задал изначально (свойство CharLength) вместо проверки потом
чтобы обойти все контролы на панели не обязательно присваивать их переменным, у каждого компонента есть массивы Components[] и Controls[], кол-во элементов ComponentCount и ControlCount соответственно
что то типа
Код:
for x:=0 to pnl.ComponentCount-1 do
if pnl.Components[x] is TEdit then
//TEdit(pnl.Components[x]).свойство:=чемуто
//или
//(pnl.Components[x] as TEdit).свойство:=чемуто
это беглый взгляд, присоединяюсь к Kailon давай сразу к проблемам