edit1.text:=inttostr(blue);
edit2.text:=inttostr(red);
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
close;
end.
