Index: debugger/gdbmidebugger.pp
===================================================================
--- debugger/gdbmidebugger.pp	(revision 10649)
+++ debugger/gdbmidebugger.pp	(working copy)
@@ -2098,7 +2098,7 @@
       if S <> ''
       then begin
         FMainAddr := StrToIntDef(S, 0);
-        ExecuteCommand('-break-insert -t *' + S,  [cfIgnoreError], R);
+        ExecuteCommand('-break-insert -t *' + IntToStr(FMainAddr),  [cfIgnoreError], R);
         Result := R.State <> dsError;
         if Result then Exit;
       end;
@@ -2194,7 +2194,7 @@
     // We could not set our initial break to get info and allow stepping
     // Try it with the program entry point
     FMainAddr := StrToIntDef(EntryPoint, 0);
-    ExecuteCommand('-break-insert -t *' + EntryPoint, [cfIgnoreError], R);
+    ExecuteCommand('-break-insert -t *' + IntToStr(FMainAddr), [cfIgnoreError], R);
     TempInstalled := R.State <> dsError;
   end;