The 4 parameter specify where the image will be draw so specify it
Code:
procedure ...
var
 dst: TSDL_Rect;
begin
dst.x :=
dst.y :=
dst.w :=
dst.h :=
sdl_blitsurface(road_vertical,nil,screen,@dst);
end;
use @dst on 4 parameter