procedure TForm1.bsSkinButton1Click(Sender: TObject);
var
name,s1,s2,serial : string;
len,i1,i2,i3: integer;
begin

If Length(bsSkinEdit1.Text) < 5 then
begin
bsSkinEdit1.Text := 'Please enter at least 5 characters!';
Exit;
end;

name := bsSkinEdit1.Text;
len := Length(name);

i1 := Ord(name[3]) + $55;
i2 := len;
i3 := i1 * i2;
i1 := Ord(name[5]) * i3;
s1 := IntToStr(i1);

i3 := len + len * len;
i2 := Ord(name[4]) * i3;
i1 := i2 div 2;
i3 := i2 + i1 * $2;
s2 := IntToStr(i3);

serial := s1 + s2;

if bsSkinEdit2.Text = serial then
begin
bsSkinMessage1.MessageDlg('You did it man!, now write me a keygen :)',mtInformation, [mbOK], 0);
Exit;
end
else
bsSkinMessage1.MessageDlg('Try harder Brandon! (Nevermind ^^)',mtError, [mbOK], 0);
Exit;
end;