Вот собственно сам код который грузится после отображения окна программы
Код:
var
I: Integer;
Marker: TMarker;
sub_icon, path: string;
begin
path := ExtractFilePath(application.ExeName);
Form1.GMMarker1.Clear;
Form1.Sub_Query.First;
if Form1.Sub_Connection.Connected then
begin
for I := 1 to Form1.Sub_Query.RecordCount do
begin
Application.ProcessMessages;
Marker := Form1.GMMarker1.Add;
Marker.Position.Lat := Marker.Position.StringToReal(Form1.Sub_Query.FieldByName('Sub_lat').Value);
Marker.Position.Lng := Marker.Position.StringToReal(Form1.Sub_Query.FieldByName('Sub_lng').Value);
if FileExists(path + '\IMAGES\'+Form1.Sub_Query.FieldByName('ICON_NAME').Value+'.png') then
begin
sub_icon:= path + '\IMAGES\'+Form1.Sub_Query.FieldByName('ICON_NAME').Value+'.png';
end else
begin
sub_icon:= path + '\IMAGES\NN.png';
end;
Marker.Icon := sub_icon;
Form1.Sub_Query.Next;
end;
end;