I had to change some assembly.
procedure TForm1.Enemy1xClick(Sender: TObject);
begin
WriteBytes($5D0880,[$6B,$C0,$01,$89,$41,$30,$8B,$4D,$EC,$8B,$55,$EC,$89,$41,$2C]);
end;
procedure TForm1.Enemy2xClick(Sender: TObject);
begin
WriteBytes($5D0880,[$6B,$C0,$02,$89,$41,$30,$8B,$4D,$EC,$8B,$55,$EC,$89,$41,$2C]);
end;
procedure TForm1.Enemy3xClick(Sender: TObject);
begin
WriteBytes($5D0880,[$6B,$C0,$03,$89,$41,$30,$8B,$4D,$EC,$8B,$55,$EC,$89,$41,$2C]);
end;
procedure TForm1.Enemy5xClick(Sender: TObject);
begin
WriteBytes($5D0880,[$6B,$C0,$05,$89,$41,$30,$8B,$4D,$EC,$8B,$55,$EC,$89,$41,$2C]);
end;
procedure TForm1.Enemy10xClick(Sender: TObject);
begin
WriteBytes($5D0880,[$6B,$C0,$0A,$89,$41,$30,$8B,$4D,$EC,$8B,$55,$EC,$89,$41,$2C]);
end;
procedure TForm1.Gain1xClick(Sender: TObject);
begin
WriteBytes($431576,[$A1,$C4,$E2,$99,$00,$03,$C2,$A3,$C4,$E2,$99,$00]);
end;
procedure TForm1.Gain2xClick(Sender: TObject);
begin
WriteBytes($431576,[$6B,$D2,$02,$01,$15,$C4,$E2,$99,$00,$90,$90,$90]);
end;
procedure TForm1.Gain3xClick(Sender: TObject);
begin
WriteBytes($431576,[$6B,$D2,$03,$01,$15,$C4,$E2,$99,$00,$90,$90,$90]);
end;