begin
C.value:=10;
while num1.value<c.value do
begin
num1.value:=num1.value+1;
num2.value:=c.value-num1.value;
memo1.lines.add((floattostr(num1.value))+'__'+(floattostr(num2.value)));
end;
if (num1.value=c.Value) then
begin
showmessage('Done');
end;
end;